Several CopyTo people adress on Lotus Notes via Excel

H

harrycover_2003

I created a VBA script to send a mail via Lotus Notes by ExceL. I
don't find the solution to put several email adress on the copy to
field :

Recipient = Range("AB15").Value
CopyTo1 = "(e-mail address removed), (e-mail address removed), (e-mail address removed)"
Maildb.CreateDocument
Set MailDoc = Maildb.CreateDocument
MailDoc.Form = "Memo"
Set MyItem = MailDoc.AppendItemValue("Subject", "Your subject
goes here")
Set MyItem = MailDoc.AppendItemValue("CopyTo", CopyTo1)
Set MyItem = MailDoc.CreateRichTextItem("Body")
Set MyStyle = Session.CreateRichTextStyle
With MyItem
MyStyle.Bold = True
MyStyle.FontSize = 10
Call MyItem.AppendStyle(MyStyle)
.AppendText "Your request was indeed taken into account." &
Chr$(10) & _
"You will find the number of file herewith that we have
affected." & Chr$(10) & _
"For all remarks or information concerning this problem, it
will be essential to provide us this number:"
.AddNewLine 2
MyStyle.Bold = False
MyStyle.FontSize = 10
Call MyItem.AppendStyle(MyStyle)

this solution doesnt' work correctly. When i put one email adress ==>
OK. Several ==> KO.

Regards
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VIA Excel - Composing a Lotus Notes email without sending 2
Lotus notes email problems 0
bold font for lotus notes email 0
Lotus Notes Email from Table 1
Lotus save as draft (instead of sending email) 0
Email Range as picture or bitmap. - Lotus Notes 0
Lotus Notes email attachments 1
Lotus Notes email background processing and open new message. 0

Top