Questo e\' il codice che utilizzo per mandare email ed un doclink ad un
documento. Nell\'inizialize, lo richiami passandogli tutte le variabili...
-------------------------------------
Sub InviaMailDocLink(dbNab As NotesDatabase, docDocToLink As NotesDocument,
vDestinatarioMail As Variant, vCCMail As Variant, vBCCMail As Variant, sSubject
As String, sBody As String)
Dim ritmBody As NotesRichTextItem
Dim docMailToSend As NotesDocument
Set docMailToSend = dbNab.CreateDocument
docMailToSend.Form = "memo"
docMailToSend.SendTo = vDestinatarioMail
docMailToSend.Subject = sSubject
Set ritmBody = New NotesRichTextItem( DocMailToSend , "Body" )
If Not(docDocToLink Is Nothing) Then
Call ritmBody.AddNewLine(1)
Call ritmBody.AppendDocLink( docDocToLink, "" )
End If
Call ritmBody.AppendText( sBody )
docMailToSend.Form = "Memo"
docMailToSend.DefaultMailSaveOptions = "1"
docMailToSend.MailSaveOptions = "1"
docMailToSend.Recipients = docMailToSend.SendTo
docMailToSend.CopyTo = vCCMail
docMailToSend.BlindCopyTo = vBCCMail
Call docMailToSend.Send(True)
Exit Sub
End Sub
-------------------------------------
|