fissotto

macro excel ed invio automatico mail con Office

Recommended Posts

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 = "[email protected]"                      '<<< 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..

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now