Devo inviare, settimanalmente, tramite Excel, e-mail a 20-30 destinatari diversi con dei dati in allegato.
Ho un foglio con i vari indirizzi e con i dati da inviare, specifici per ogni destinatario.
Per inviare le varie e-mail DEVO utilizzare Microsoft Office Outlook (regole aziendali)
Utilizzo una macro da cui ho estratto la parte che mi interessa proporre come problema
- Codice: Seleziona tutto
Sub Invia_email()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "esempio@esempio.com"
.CC = ""
.BCC = ""
.Subject = "OGGETTO=Prova di invio e-mail"
.Body = "Questo è il testo della e-mail"
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Eseguendo la macro ottengo un messaggio di avviso di Microsoft:
Il messaggio mi compare per ogni invio di e-mail che faccio:
FASTIDIOSO
Ma le varie e-mail vengono inviate correttamente.
Ho provato, come suggerito in un forum, a togliere
“.send”
e sostituirlo con
SendKeys ("%(s)"), True
Ma in questo modo l’e-mail non viene inviata.
Chi di voi ha avuto il mio stesso problema?
Lo avete risolto?
Grazie.
Ciao da Ricky53
