![]() ![]() StrCCList = ReplaceAll( strCCList, Chr(13)+Chr(10), Chr(13))įor nX = 1 To CountFields(strCCList, Chr(13)) StrCCList = ReplaceAll( strCCList, " ", Chr(13)) StrCCList = ReplaceAll( strCCList, ",", Chr(13)) Mail.AddRecipient(Trim(NthField(strRecipients, Chr(13), nX ))) StrRecipients = ReplaceAll( strRecipients, Chr(13)+Chr(10), Chr(13))įor nX = 1 To CountFields(strRecipients, Chr(13)) StrRecipients = ReplaceAll( strRecipients, " ", Chr(13)) StrRecipients = ReplaceAll( strRecipients, ",", Chr(13)) ("X-Mailer","CCBOC_MailSender")ĭIM strRecipients AS String = strToAddress ' self.LogActivity( "SendMailTo1", "Problem sending mail where the ToAddress is empty." ) Good luck! Public Sub SendMailTo1(strFromAddress AS String, strToaddress AS String, strCCAddress AS String, strSubject AS String, strBodyPlain AS String) ![]() However, this function should get you started. You may want to use a mail service such as MailGun to get better performance and avoid some security issues. There will need to be lots of testing as there are often security concerns for communicating with your server. If you are creating a desktop or console application, place this method in the APP class. If you are creating a web application, you want to put this method in the SESSION class. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |