Sono nuovo di questo NG, ho cercato nei vecchi messaggi ma non sono riuscito a trovare una risposta.
Sto cercando da VBA di produrre dei messaggi che vengano inviati con Lotus Notes.
Finora, scopiazzando qua e là, ero riuscito a produrre messaggi con testo in varie formattazioni e font a seconda dei gusti.
Ora mi chiedono di mettere un\'immagine come intestazione, di allineare giustificato un paragrafo e di aggiungere un link ad un file.
La prima operazione, manualmente, si ottiene da Lotus su un nuovo memo con Crea, Immagine, selezionando il file; la terza, selezionando del testo, scegliendo Crea, Punto di attivazione, Collegamento e scrivendo il percorso del file. Io peṛ le devo produrre automaticamente all\'interno del mio codice.
Dopo tre giorni di ricerche in giro per il web, non mi resta che chiedere aiuto per tutti e tre i bisogni.
Allego il codice fatto finora.
Grazie in anticipo.
Riccardo Baldinotti
Dim subject As String
Dim bodytxt As String
Dim mandali As String
Dim Maildb As Object
Dim UserName As String
Dim MailDbName As String
Dim MailDoc As Object
Dim AttachME As Object
Dim Session As Object
Dim EmbedObj As Object
Dim MyItem As Object
Dim MyStyle 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
Else
Maildb.OPENMAIL
End If
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
Set MyItem = MailDoc.CREATERICHTEXTITEM("Body")
Set MyStyle = Session.CreateRichTextStyle
Set Rst = ... l\'origine dei dati che devo scrivere nel messaggio.
subject = "Newsletter direzionale del " & Rst!NLdata
rem qui vorrei inserrie un\'immagine "t:\progetti\newsletter\immagine.jpg"
Do
rem qui scrivo, in grassetto, il titolo dell\'articolo
bodytxt = Rst!ARtitolo & vbCrLf
With MyItem
MyStyle.Bold = True
\'MyStyle.Text.Left = True
Call MyItem.AppendStyle(MyStyle)
.appendtext bodytxt
End With
rem qui scrivo il riassunto. Vorrei giustificarlo.
bodytxt = Rst!ARabstract & vbCrLf
With MyItem
MyStyle.Bold = False
\'MyStyle.Align.complete = True
Call MyItem.AppendStyle(MyStyle)
.appendtext bodytxt
End With
rrem questi sono i miei patetici tentativi di aggiungere un link
bodytxt = "<a href=" & Chr(34) & "t:\progetti\newsletter\articolo.mht">Leggi articolo</a>" & vbCrLf & vbCrLf
With MyItem
MyStyle.Bold = False
\'MyStyle.Alignment.Right = True
Call MyItem.AppendStyle(MyStyle)
.appendtext bodytxt
End With
Rst.MoveNext
Loop Until Rst.EOF
mandali = strIndirizzo
MailDoc.sendto = mandali
MailDoc.subject = subject
MailDoc.returnreceipt = "0"
MailDoc.SAVEMESSAGEONSEND = True
MailDoc.PostedDate = Now()
MailDoc.SEND 0, mandali
fine:
Set Rst = Nothing
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
Set MyImage = Nothing
Set MyLink = Nothing
Set MyObj = Nothing
Exit Sub
errore:
MsgBox Err.Number & " " & Err.Description & vbCrLf & "Invio fallito"
GoTo fine:
End Sub
Riccardo Baldinotti
|