MACRO INVIO MAIL DA OUTLOOK 2010

giovedì 30 maggio 2013 - 15.48

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

paolocarpani Profilo | Newbie

1 messaggi | Data Invio: gio 30 mag 2013 - 15:48

Buongiorno,
Avrei l'esigenza di creare una macro per inviare e-mail da Outlook 2010. Ho trovato la macro che vi allego e direi che funziona. L'esigenza che avrei è quella di poter inserire un testo in formato HTML salvato su un file HTML in un preciso percorso sul disco locale. Potete istruirmi come modificare la stringa ".Body =" per far sì che la macro vada a pescare il corpo della mail dal file HTML salvato ad un percorso preciso?

Grazie

ECCOVI LA MACRO:

Sub SendMailAutomation()

Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem

Set Ol_Item = Ol_App.CreateItem(olMailItem)

With Ol_Item
.To = "destinatario@dominio.it" ' se sono più destinatari usare il Bcc o Ccn concatenando gli indirizzi
.SentOnBehalfOfName = ("mail@yahoo.com")
.subject = "Oggetto del Messaggio"
.Body = "Questo è il Body o corpo"
.Attachments.Add "C:\Documents\fichier.jpg" ' se gli allegati sono più di uno ripetere...
.Save
.send
End With
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !