Hi All,
some pointers would be appreciated:
v17.5 mac/pc os x 10.13.6, W10
I have a 4D v13 mac/pc that send an email with a html attachment. this works
I upgraded to 4D v15 mac/pc and the email (plain text) with attachment file in
HTML, this works
Upgraded to 4D v17 mac/ and the email plain text works, the attachment in HTML
is empty and in the email program the HTML file is forever “downloading”.
when the attachment is send with an email program (not 4D) the attachment and
email are as they should be.
The code of V15 to v17 in the manual is the same, yet in v17 the attachment is
“empty" and the weird part is, it’s almost identical as in the example in the
manual.
I have no clue how to make a that file (Test.html) in the folder attachmentz
have an ID like is stated in the manual where they refer to an image as an
attachment.
$fileName:=Get 4D folder(Database folder)+"attachmentz"+Folder
separator+”Test.html"
V15: works!
Case of
: (Not(ERRCheck ("SMTP_New";SMTP_New ($SMTP_ID))))
//-------------------------------------------------------------------------------
: (Not(ERRCheck ("SMTP_Host";SMTP_Host ($SMTP_ID;$TxtPref_Server_t))))
: (Not(ERRCheck ("SMTP_From";SMTP_From ($SMTP_ID;$vFrom_t))))
: (Not(ERRCheck ("SMTP_To";SMTP_To ($SMTP_ID;$vTo_t)))) //
(Not(ERRCheck ("SMTP_Cc";SMTP_Cc ($SMTP_ID;$vCC_t))))
: (Not(ERRCheck ("SMTP_Bcc";SMTP_Bcc ($SMTP_ID;$vBcc_t))))
: (Not(ERRCheck ("SMTP_Subject";SMTP_Subject ($SMTP_ID;$TxtSubject_t)))) //
: (Not(ERRCheck ("SMTP_Comments";SMTP_Comments ($SMTP_ID;"Sent via 4D")))) //
: (Not(ERRCheck ("SMTP_AddHeader";SMTP_AddHeader
($SMTP_ID;"X-4Ddemo:";<>VERSION_t))))
: (Not(ERRCheck ("SMTP_Body";SMTP_Body ($SMTP_ID;$vMessage_t))))
: (Not(ERRCheck ("SMTP_Auth";SMTP_Auth
($SMTP_ID;$TxtAuthUserName;$TxtAuthPassword)))) //
: (Not(ERRCheck ("SMTP_Port";IT_SetPort (2;$LPortNo)))) //
1=FTP;2=SMTP;3=POP3;4=IMAP
: (Not(ERRCheck ("SMTP_Attachment";SMTP_Attachment ($SMTP_ID;$fileName;0;1))))
: (Not(ERRCheck ("SMTP_Send";SMTP_Send ($SMTP_ID;Num($fSSL_b))))) //
0= dont' use ssl; 1 = use SSL
Else
$SentOK:=True //message was composed and mailed successfully
End case
v17: email is sent with attachment but attachment does not have a content.
Case of
: (Not(ERRCheck ("SMTP_New";SMTP_New ($SMTP_ID))))
//-------------------------------------------------------------------------------
: (Not(ERRCheck ("SMTP_Host";SMTP_Host
($SMTP_ID;$TxtPref_Server_t))))
: (Not(ERRCheck ("SMTP_From";SMTP_From ($SMTP_ID;$vFrom_t))))
: (Not(ERRCheck ("SMTP_To";SMTP_To ($SMTP_ID;$vTo_t)))) //:
(Not(ERRCheck ("SMTP_Cc";SMTP_Cc ($SMTP_ID;$vCC_t))))
: (Not(ERRCheck ("SMTP_Bcc";SMTP_Bcc ($SMTP_ID;$vBcc_t))))
: (Not(ERRCheck ("SMTP_Subject";SMTP_Subject
($SMTP_ID;$TxtSubject_t)))) //
: (Not(ERRCheck ("SMTP_Comments";SMTP_Comments ($SMTP_ID;"Sent
via 4D")))) //
: (Not(ERRCheck ("SMTP_AddHeader";SMTP_AddHeader
($SMTP_ID;"X-4Ddemo:";<>VERSION_t))))
: (Not(ERRCheck ("SMTP_Body";SMTP_Body
($SMTP_ID;$vMessage_t)))) // 1 = replace; 4 = html text
: (Not(ERRCheck ("SMTP_Auth";SMTP_Auth
($SMTP_ID;$TxtAuthUserName;$TxtAuthPassword)))) //
: (Not(ERRCheck ("SMTP_Port";IT_SetPort (2;$LPortNo)))) //
1=FTP;2=SMTP;3=POP3;4=IMAP
: (Not(ERRCheck ("SMTP_Attachment";SMTP_Attachment
($SMTP_ID;$fileName;0;1))))
: (Not(ERRCheck ("SMTP_Send";SMTP_Send
($SMTP_ID;Num($fSSL_b))))) // 0= dont' use ssl; 1
= use SSL
Else
$SentOK:=True //message was composed and mailed
successfully
End case
Greetings
ernie hilgers(aruba)
**********************************************************************
4D Internet Users Group (4D iNUG)
New Forum: https://discuss.4D.com
Archive: http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:[email protected]
**********************************************************************
