Allora, ho provato questo sistema, ma non va.
Io vorrei che l'immagine venisse in qualche modo inglobata nel modello, che poi è quello che fa Outlook; infatti installando un nuovo modello su un pc e inviando una mail con questo stesso modello ad un pc dove non è installato, questo viene visualizzato benissimo.
Vi scrivo il codice:
codice:
Private Sub Command1_Click()
Dim olkMail As outlook.MailItem
Dim strBody As String
Dim strModello As String
Dim strRiga As String
Dim strNome As String, strPerc As String
strModello = "C:\Programmi\File comuni\Microsoft Shared\"
strModello = strModello & "Elementi decorativi\Cielo.htm"
' Divide il percorso in Cartella e Nome file
DividiNomePercorsoFile strModello, strNome, strPerc
' Legge il file
' scrivendone il contenuto in una variabile
Open strModello For Input As #1
Do While Not EOF(1)
' Legge i dati di una riga
Input #1, strRiga
'aggiunge la riga letta alla variabile
strBody = strBody & strRiga
Loop
Close #1
'Debug.Print strBody
strTitolo = "Email da VB!"
Set olkSpace = olkApp.GetNamespace("MAPI")
' Crea un nuovo oggetto MailItem
Set olkMail = olkSpace.GetDefaultFolder(olFolderInbox).Items.Add
olkMail.Subject = strTitolo
olkMail.HTMLBody = strBody
' Salva la mail come modello
olkMail.SaveAs strPerc & "Mail.oft", olTemplate
' Crea la mail come modello
' partendo da quello appena salvato
Set olkMail = olkApp.CreateItemFromTemplate(strPerc & "Mail.oft")
olkMail.To = "pippo@pippo.it"
' Invia la mail
olkMail.Send
Set olkMail = Nothing
End Sub
Rispondi quotando
?
