Outlook 2007 vba

[dipic]

Ho scritto una piccola macro che dovrebbe inserire su specifica richiesta un file html nel corpo della mail.
Se creo una mail ex-novo funziona, se cerco di farla funzionare su una mail già aperta (con il tasto "nuovo messaggio"), la pagina html non si copia sul corpo, ma viene allegata come file.

1-crea una nuova mail e copia il file html nel corpo della mail ... ed è quello che voglio

Codice: Seleziona tutto

Dim strFile As String
strFile = "dp.html"
Dim olApp As Outlook.Application
Set olApp = Application
Dim Msg As Outlook.MailItem
Set Msg = olApp.CreateItem(olMailItem)
Dim olAttach As Outlook.Attachments
Set olAttach = Msg.Attachments
olAttach.Add strFile
Msg.Display
Set olApp = Nothing


2 - da usarsi su una mail già aperta ... in questo caso non copia il file sul corpo ma lo allega

Codice: Seleziona tutto

Dim strFile As String
strFile = "dp.html"
Dim olApp As Outlook.Application
Set olApp = Application
Dim olAttach As Outlook.Attachments
Set olAttach = ActiveWindow.CurrentItem.Attachments
olAttach.Add strFile
Set olApp = Nothing


C'è nessuno che può indicarmi dove stò sbagliando?
Grazie per qualsiasi aiuto.

[dipic]

Probabilmente è solo un parametro da aggiungere a "Outlook.Attachments", ma non riesco a trovare niente in merito ... nessuna idea anche alternativa?

[dipic]

Forse non è il massimo nella "redazione" del codice, ma funziona ....

Codice: Seleziona tutto

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim strFirma, strText1, strText2 As String
Dim ThisWin, fso, ts As Object
strFirma = "FILE.html"
Set ThisWin = Application.ActiveInspector.CurrentItem
strText1 = ThisWin.HTMLBody
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(strFirma, ForReading)
strText2 = ts.ReadAll
ThisWin.HTMLBody = strText1 & Chr(13) & " " & Chr(13) & strText2


Se a qualcuno può servire.

[Anthony47]

Ciao dipic; come vedi nel forum c' e' poca familiarita' con outlook. Grazie per aver postato una possibile soluzione al problema.