Invio Mail da VBA

di
AndreaSartori
il
1 risposte
A
AndreaSartori
Pochi posts
Iscritto da
apr, 2017
Messaggi:
28

Invio Mail da VBA

Buona sera a tutti e buon anno... Speriamo migliore del concluso.
Spero qualcuno riesca ad aiutarmi nel risolvere una questione legata all'invio di mail da codice...
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItemFromTemplate(Tabella!Template)
With OutMail

.To = Me!EmailAcq
.Subject = Tabella!Oggetto & " " & Me!Testo1 & " " & Me!Testo2 & Me!Testo3
'.Body = Tabella!PrimaRiga & " " & Me!Cliente & "," & vbNewLine & Tabella!Messaggio
.Display

Set OutMail = Nothing
Set OutApp = Nothing
End With
Utilizzo un file di template .oft.
L' invio funziona perfettamente ma vorrei riuscire a modificare, dato che l' invio è inserito in un loop, per ogni mail inviata, il body della stessa o almeno solo una prima riga. Se inserisco il body in codice, chiaramente il template sparisce...
Ringraziando anticipatamente chi vorrà aiutarmi, saluto tutti.

1 Risposte

  • O
    OsvaldoLaviosa
    Super Famoso
    Iscritto da
    apr, 2012
    Messaggi:
    7440

    Re: Invio Mail da VBA

    Quando invii un codice VBA o SQL abbi cura di selezionarlo tutto, poi fai clic sul tasto in alto </> per farlo apparire poi con i tipici caratteri monotype più familiari ai programmatori.

    Non mi sento tanto padrone del codice che hai esposto...ma:
    Io rilevo un apostrofo in 
    '.Body...
    che non è codice attivo

    Non vorrei che anche 
    & vbNewLine &
    ti crei problemi

    ...magari attendi un suggerimento più esperto.
Devi accedere o registrarti per scrivere nel forum
1 risposte