Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Multiple Email Address in Notes
I have code to send email from excel using notes but the sendto is causing
some problems, the address seperator we use is ",". But no matter what I do I cannot get ti to send to more than one address (the first one in the list).Here is the complete code for sending the email. Any help would be appreciated Dim objNotesSession As Object Dim objNotesMailFile As Object Dim objNotesDocument As Object Dim objNotesField As Object On Error Resume Next emailsendto = m" '' Required - Send to address 'EMailCCTo = "" '' Optional 'EMailBCCTo = "" '' Optional EmailSubject = " GPR Variance Report" ''Establish Connection to Notes Set objNotesSession = CreateObject("Notes.NotesSession") ''Establish Connection to Mail File '' .GETDATABASE("SERVER", "FILE") Set objNotesMailFile = objNotesSession.GETDATABASE("", "") ''Open Mail objNotesMailFile.OPENMAIL ''Create New Memo Set objNotesDocument = objNotesMailFile.CREATEDOCUMENT ''Create 'Subject Field' Set objNotesField = objNotesDocument.APPENDITEMVALUE("Subject", EmailSubject) 'With objNotesField ' .appendtext "Daily Sales Report" 'End With ''Create 'Send To' Field Set objNotesField = objNotesDocument.APPENDITEMVALUE("SendTo", emailsendto) ''Create 'Copy To' Field Set objNotesField = objNotesDocument.APPENDITEMVALUE("CopyTo", EMailCCTo) ''Create 'Blind Copy To' Field 'Set objNotesField = objNotesDocument.APPENDITEMVALUE("BlindCopyTo", EMailBCCTo) ''Create 'Body' of memo Set objNotesField = objNotesDocument.CREATERICHTEXTITEM("Body") With objNotesField .appendtext "This e-mail is generated by an automated process." .ADDNEWLINE 1 .appendtext "Please contact a member of the BI team should you have any questions." .ADDNEWLINE 2 End With ''Attach the file --1454 indicate a file attachment ''objNotesField = objNotesField.EMBEDOBJECT(1454, "", "C:\Temp\test.xls") objNotesField = objNotesField.EMBEDOBJECT(1454, "", "c:\spreadsheets\" & newworksheet) ''Send the e-mail objNotesDocument.Send (0) |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Multiple Email Address in Notes
I solved the problwm, I converted the emailsendto to an array and it now
works fine Nigel "Nigel" wrote: I have code to send email from excel using notes but the sendto is causing some problems, the address seperator we use is ",". But no matter what I do I cannot get ti to send to more than one address (the first one in the list).Here is the complete code for sending the email. Any help would be appreciated Dim objNotesSession As Object Dim objNotesMailFile As Object Dim objNotesDocument As Object Dim objNotesField As Object On Error Resume Next emailsendto = m" '' Required - Send to address 'EMailCCTo = "" '' Optional 'EMailBCCTo = "" '' Optional EmailSubject = " GPR Variance Report" ''Establish Connection to Notes Set objNotesSession = CreateObject("Notes.NotesSession") ''Establish Connection to Mail File '' .GETDATABASE("SERVER", "FILE") Set objNotesMailFile = objNotesSession.GETDATABASE("", "") ''Open Mail objNotesMailFile.OPENMAIL ''Create New Memo Set objNotesDocument = objNotesMailFile.CREATEDOCUMENT ''Create 'Subject Field' Set objNotesField = objNotesDocument.APPENDITEMVALUE("Subject", EmailSubject) 'With objNotesField ' .appendtext "Daily Sales Report" 'End With ''Create 'Send To' Field Set objNotesField = objNotesDocument.APPENDITEMVALUE("SendTo", emailsendto) ''Create 'Copy To' Field Set objNotesField = objNotesDocument.APPENDITEMVALUE("CopyTo", EMailCCTo) ''Create 'Blind Copy To' Field 'Set objNotesField = objNotesDocument.APPENDITEMVALUE("BlindCopyTo", EMailBCCTo) ''Create 'Body' of memo Set objNotesField = objNotesDocument.CREATERICHTEXTITEM("Body") With objNotesField .appendtext "This e-mail is generated by an automated process." .ADDNEWLINE 1 .appendtext "Please contact a member of the BI team should you have any questions." .ADDNEWLINE 2 End With ''Attach the file --1454 indicate a file attachment ''objNotesField = objNotesField.EMBEDOBJECT(1454, "", "C:\Temp\test.xls") objNotesField = objNotesField.EMBEDOBJECT(1454, "", "c:\spreadsheets\" & newworksheet) ''Send the e-mail objNotesDocument.Send (0) |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
lotus notes email | Excel Worksheet Functions | |||
Why won't AOL email communicate with lotus notes email? | Excel Discussion (Misc queries) | |||
Multiple Email address in notes | Excel Programming | |||
Additional send to address for notes | Excel Programming | |||
Email with notes error | Excel Programming |