Condividi:        

Outlook 2007 vba

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Outlook 2007 vba

Postdi dipic » 16/05/09 14:24

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.
Avatar utente
dipic
Utente Senior
 
Post: 106
Iscritto il: 13/09/08 14:57
Località: Cormòns (I)

Sponsor
 

Re: Outlook 2007 vba

Postdi dipic » 21/05/09 09:53

Probabilmente è solo un parametro da aggiungere a "Outlook.Attachments", ma non riesco a trovare niente in merito ... nessuna idea anche alternativa?
Avatar utente
dipic
Utente Senior
 
Post: 106
Iscritto il: 13/09/08 14:57
Località: Cormòns (I)

Re: Outlook 2007 vba

Postdi dipic » 08/06/09 10:22

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.
Avatar utente
dipic
Utente Senior
 
Post: 106
Iscritto il: 13/09/08 14:57
Località: Cormòns (I)

Re: Outlook 2007 vba

Postdi Anthony47 » 08/06/09 13:59

Ciao dipic; come vedi nel forum c' e' poca familiarita' con outlook. Grazie per aver postato una possibile soluzione al problema.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Outlook 2007 vba":

incollare in Outlook
Autore: valyfilm
Forum: Software Windows
Risposte: 1

Chi c’è in linea

Visitano il forum: Nessuno e 98 ospiti