Allego il codice che mi permette di: inserire un\'immagine come intestazione, formattare il testo, aggiungere collegamenti a documenti esterni.
Dim subject As String
Dim Maildb As Object \'The mail database
Dim UserName As String \'The current users notes name
Dim MailDbName As String \'THe current users notes mail database name
Dim MailDoc As Object \'The mail document itself
Dim Session As Object \'The notes session
Dim mandali As String
Dim richTextHeader As Object
Dim body As Object
Dim stream As Object
Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.ISOPEN = True Then
\'Already open for mail
Else
Maildb.OPENMAIL
End If
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
Set stream = Session.CreateStream()
subject = "Newsletter direzionale"
\' QUESTA È LA PARTE CHE METTE UN\'IMMAGINE IN TESTA AL MESSAGGIO
Call stream.Open("percorso dell\'immagine")
Set body = MailDoc.CreateMIMEEntity \'("memo")
Set richTextHeader = body.CreateHeader("Content-Type") \'
Call richTextHeader.SetHeaderVal("multipart/mixed")
Set mimeImage = body.CreateChildEntity()
strImageType = "image/jpeg" \'Other formats are "image/gif" "image/bmp"
Call mimeImage.SetContentFromBytes(stream, strImageType, ENC_IDENTITY_BINARY)
Call stream.Close
\' QUESTA È LA PARTE CHE AGGIUNGE IL TESTO
Set mimeHtml = body.CreateChildEntity()
Call stream.WriteText(fFaiPagina) \'routine che produce in formato html il testo
Call mimeHtml.SetContentFromText(stream, "text/html;charset=iso-8859-1", ENC_IDENTITY_8BIT)
Call stream.Close
mandali = INDIRIZZO DEL DESTINATARIO
MailDoc.sendto = mandali
MailDoc.subject = subject
MailDoc.returnreceipt = "0"
MailDoc.SAVEMESSAGEONSEND = True
MailDoc.PostedDate = Now()
MailDoc.Send 0, mandali \'
Set Rst = Nothing
Set Maildb = Nothing
Set MailDoc = Nothing
Set Session = Nothing
Set body = Nothing
Set stream = Nothing
Set richTextHeader = Nothing
Saluti,
Riccardo Baldinotti
Riccardo Baldinotti
|