Email con Excel

Hai un problema con Excel?

Nuova discussione

Email con Excel
di Muten (utente non iscritto) data: 04/06/2014 10:36:49
Salve a tutti. Ho letto una quindicina di discussioni varie ma non riesco a risolvere il mio problema (purtroppo non so scrivere le macro quindi mi è tutto più difficile).

Il mio problema è questo: Vorrei avere un comando che invii email in automatico ad un elenco di indirizzi email. Dell'email deve prendere l'oggetto dalla cella A2, il corpo dell'email dalla cella F2 e l'elenco degli indirizzi H2:H10.

Tutto questo deve avvenire solo se c'è scritto 'SI' nelle celle B2, C2, D2, E2.

Tutto chiaro?

Grazie anche solo se leggete!

di Muten (utente non iscritto) data: 04/06/2014 11:18:21
Ho trovato qualcosa.

Ora vorrei modificare in maniera tale che:

1. Non rimanga in posta in uscita (va benissimo che appaia la finestra di outlook e bisogna cliccare invia, però poi mi resta nella posta in uscita e devo rifare invia). Qualcosa tipo questo? SendKeys ("%(s)"), True però non ho capito bene a cosa serva, e soprattutto dove metterlo.

2. L'email venga mandata in automatico quando nelle celle B2:E2 ci sia scritto SI in ognuna

Sub Invioemail()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String

EmailAddr = "nome.cognome@XXX.it"  '<<< inserire lo/gli indirizzi
Subj = Range("A2").Value

BodyText = Range("F2").Value

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
.to = EmailAddr
.CC = ""
.BCC = ""
.Subject = Subj
.Body = BodyText
'.Attachments.Add ActiveWorkbook.FullName
.Display 'or use .send
End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Vuoi Approfondire?