spedire allegato

Hai un problema con Excel?

Nuova discussione

spedire allegato
di mga297 (utente non iscritto) data: 07/07/2016 17:05:37
sto cercano di spedire un allegato tramite vba ma non risco ad inserire un testo nella mail... può anche darsi che la funzione che sto utilizzando non lo supporti

grazie in anticipo

'spedisco il file come allegato

Application.Dialogs(xlDialogSendMail).Show _
  arg1:=Array("mga297@gmail.com", "mga297@libero.it"), _
  arg2:="allegato file per le registrazioni € " & importo_totale

'che arg devo mettere per il testo della mail???

di Vecchio Frac data: 08/07/2016 09:12:44
Application.Dialogs(xlDialogSendMail) non supporta l'inserimento di testo nel corpo della mail.
Dovrai creare un oggetto Outlook (oppure un oggetto CDO) e smanettare con quello.

Option Explicit

Public Sub pSendEmail()
Dim Email As Object
    Set Email = CreateObject("Outlook.Application").CreateItem(0)   'olMailItem
    With Email
        .To = "xyz@xyz.it; abc@abc.it"
        .Subject = "Oggetto della mail"
        .Body = "Testo della mail"
        '.Attachments.Add "pathfilename"
        '.Send
        .Display
        '.Save
    End With
    Set Email = Nothing
End Sub

di lizzus (utente non iscritto) data: 08/07/2016 09:45:26
Ottimo, cercavo anche io una soluzione simile! Ma se volessi aggiungere anche del testo nel corspo dell'email?
di Vecchio Frac data: 08/07/2016 10:07:01
Il campo .Body si riferisce appunto al corpo della mail.
Si può anche inserire del testo HTML per formattare il testo (ma le cose più semplici sono sempre le migliori).

Vuoi Approfondire?