Ciao,
come da topic, dovrei inviare automaticamente delle mail da Lotus notes. Ho gia il codice vba che funziona, solo non riesco ad inserire come body della mail il contenuto di una cella (mi da come output una mail senza body) e la firma.
Sub send_email_proposal()
Dim Maildb As Object
Dim MailDoc As Object
Dim Body As Object
Dim Session As Object
Dim text1, subject, stsignature As String
Set Session = CreateObject("Lotus.NotesSession")
Call Session.Initialize
Set Maildb = Session.GETDATABASE("", "c:\notes\data\as_LIozzi.nsf")
If Not Maildb.IsOpen = True Then
Call Maildb.Open
End If
Set MailDoc = Maildb.CREATEDOCUMENT
Call MailDoc.ReplaceItemValue("Form", "Memo")
Call MailDoc.ReplaceItemValue("SendTo", "lucaiozzi@yahoo.it")
Call MailDoc.ReplaceItemValue("cc", "lucaiozzi@yahoo.it")
subject = Sheet2.Cells(3, 2).Value
Call MailDoc.ReplaceItemValue("Subject", subject)
Set Body = MailDoc.CREATERICHTEXTITEM("Body")
text1 = Sheet2.Cells(1, 19).Value
stsignature = "C:\Users\IBM_ADMIN\Desktop\email-signature1.html"
Call Body.APPENDTEXT(text1)
Call Body.appendSignature(stsignature)
Call MailDoc.ReplaceItemValue("PostedDate", Now())
Call MailDoc.SEND(False)
Set Maildb = Nothing
Set MailDoc = Nothing
Set Body = Nothing
Set Session = Nothing
End Sub
Idee su come fare?Grazie