PDA

Visualizza Versione Completa : macro excel ed invio automatico mail



fissotto
04-03-17, 19:38
Buongiorno a tutti,
sto usando una macro su un foglio excel che all'apertura del file recupera i nominativi di chi nella cella "scadenza certificato" ha una data compresa tra quella di "oggi" e "oggi"+ 30 giorni.
Una volta recuperato il nominativo in automatico mi invia una mail tramite Outlook.
Il file funziona perfettamente su windows e volevo farlo funzionare anche sui mac.
Sul mac ho installato Office perņ la macro non lo apre e non invia nulla.
segue istruzioni impartite:


Set OutApp = CreateObject("Outlook.Application")
EmailAddr = "xxx@xxx.com" '<<< INDIRIZZO EMAIL
Subj = "Scadenze del " & Format(Date, "dd-mm-yyyy") ' OGGETTO DELLA MAIL
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = EmailAddr
.CC = ""
.BCC = ""
.Subject = Subj
.Body = BDT
'.Display 'or use .send
.send
End With
' (c)
Set OutMail = Nothing
' (d)
Set OutApp = Nothing
'
Application.Wait (Now + TimeValue("0:00:02"))
End Sub


probabilmente Set OutApp su mac non funziona.
cosa devo inserire per farla eseguire?
in alternativa potrebbe anche andare bene l'istruzione che mi permetta di inviare la mail con Mail di mac

Qualcuno riesce ad aiutarmi?
Grazie..