Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Come estrarre da Outlook email appena inviata via vba?

53 views
Skip to first unread message

RobertoA

unread,
Oct 18, 2019, 7:02:19 AM10/18/19
to
Procedura vba che invia email usando Outlook
-----------------
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
objOutlookMsg.To = destinatario
.....
objOutlookMsg.Send
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
-----------------

Dopo aver eseguito l'invio, e chiusa l'istanza Outlook, vorrei salvare
come file di testo in formato eml, il file email appena inviata
Come fare per 'estrarre', in formato eml, da Outlook il messaggio appena
inviato?


RobertoA

unread,
Oct 21, 2019, 8:52:43 AM10/21/19
to
Ecco scoperto l'arcano
Basta fare un Save PRIMA di inviare
Avendo l'EntryID, il messaggio puo' essere recuperato in qualsiasi
momento successivo

-----------------
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)
objOutlookMsg.To = destinatario
.....
objOutlookMsg.Save
Debug.print objOutlookMsg.EntryID
0 new messages