Vai al contenuto

macro in excel per invio automatico della mail


Messaggi raccomandati

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 a d aiutarmi?

Grazie..

Link al commento
Condividi su altri siti

Archiviato

Questa discussione è archiviata e chiusa a future risposte.

×
×
  • Crea Nuovo...