Becky,
I believe under the sendmail method it does not let you do a CC. If you would do me a favor and post the macro I would like to compare it to mind. We recently changed to Lotus Notes and I'm having trouble with my email macro. Keeps trying to use Microsoft Outlook or it hangs up in Lotus Notes. thanks.
Jason,
Here is the code - the other option that I have it to send it to two different people in the "to" box (instead of cc), but I haven't been able to get that to work either. I am new to writing macros & would appreciate any help you can give me.
Thanks!
Becky
Sub Mail()
Dim Data As Variant
Dim s As Object
Dim db As Object
Dim doc As Object
Dim r As Integer, x As Double
r = 38
Set s = CreateObject("Notes.NotesSession")
Set db = s.GetDatabase(" ", "mail\username.nsf")
Set doc = db.createdocument()
doc.form = "Memo"
doc.sendto = "becky.sonnentag@clarica.com,"
doc.Subject = "New Trade Ticket Purchase"
doc.body = "Trade ticket number " & Cells(r, 5) & " is ready for allocation" & ". " & " " & "(" & Cells(3, 5) & " " & Cells(3, 17) & ")"
Call doc.send(False)
Set nSession = Nothing
End Sub
Becky,
Try inserting this line after sendto
This worked when I ran it on PC. Hopefully, it will work for you. The macro that you sent to me helped out but I really need to send the Excel workbook as an attachment in Lotus notes. Please let me know if you can help. thanks.