MacroFacili: Inviare una mail

Un esempio che mostra come sia estremamente semplice da Excel, con VBA, aprire OutLook compilare una mail con eventuali allegati e inviarla.

Impostata così, con i campi da compilare, ovviamente non ha senso: è un esempio costruito solo per far vedere i campi e come si usano, normalmente si utilizza questa tecnica per invii multipli come dei dati aggiornati (e personalizzati per agente) o dati riferiti ad un cliente specifico, ecc.

I campi sono gli stessi normali di una mail e se presente il percorso di un file (ultima riga) lo aggiunge come allegato.

Volendo si può anche preparare senza inviarla in modo da poterla verificare: il comando è quello commentato alla fine xOutMail.Display, è sufficiente togliere il commento da questo e commentare (mettere l'apostrofo) prima di xOutMail.send

Sub InviaMail()
  Dim xOutApp As Object
  Dim xOutMail As Object

  Set Fd = ActiveSheet

  'dati da riportare nella mail
  MailTO = Fd.Range("C4")
  MailCC = Fd.Range("C6")
  MailBCC = Fd.Range("C8")
  OggettoMail = Fd.Range("C10")
  TestoMail = Fd.Range("C12")
  TestoMail = Replace(TestoMail, Chr(10), "
")
  NomeFileAllegato = Fd.Range("C14")

  ' apre outlook
  Set xOutApp = CreateObject("Outlook.Application")
  Set xOutMail = xOutApp.CreateItem(0)

  'preprare il corpo della mail
  With xOutMail
    .BodyFormat = 2 'olFormatHTML
    .To = MailTO
    .CC = MailCC
    .BCC = MailBCC
    .Subject = OggettoMail
    .HtmlBody = TestoMail + .HtmlBody
  End With

  'aggiunge eventuali allegati
  If (NomeFileAllegato <> "") Then
    xOutMail.Attachments.Add (NomeFileAllegato)
  End If

  xOutMail.send
  'xOutMail.Display ' per visualizzarla solo, senza inviarla

  Set xOutMail = Nothing
  Set xOutApp = Nothing
End Sub

L'esempio completo é scaricabile da questo link: Es127.xlsm (a questo link le info per attivare le macro se risultano bloccate)

Gli esempi contenuti nel sito sono per uso personale, non é consentito l'uso professionale, commerciale o la riproduzione senza autorizzazione.

Per dubbi o domande potete scriverci a domande@macrofacili.it, sulla nostra pagina FB MacroFacili.it o sul gruppo FB Excel, macro e formule.