Bonjour à tous,
J'ai trouvé dans le forum ce code, mais je n'arrive pas à le faire fonctionner. J'ai essayé d'activer la référence Outlook dans VBA mais si j'ai bien Excel ou word en référence je ne vois pas Outlook. Or il semblerait que ce soit la référence qui plante.
Voici le code :
Sub SendEmail()
Dim olApp As Outlook.Application
Set olApp = CreateObject("outlook.application")
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = "zzz@yy.com"
.CC = "zzz@yy.com"
.Subject = " outil de déploiement" & Format(Date - 1, "dd-mm-yyyy")
.Body = "Bonjour," & _
vbLf & "Veuillez trouver ci-joint l'outil de déploiement. Merci de me le retourner complété d'ici mercredi prochain" & _
vbLf & "Cordialement,"
.Attachments.Add "X:/collectif.xlsx"
.send
End With
End Sub
Merci pour vos réponses
ps : l'objectif à terme est d'envoyer 14 fichiers avec pour chaque fichier des adresses données, je pensais créer un classeur à part avec la macro et les adresses (les classeurs à envoyer sont en xlsx donc sans macro) , mais bon ça c'est l'objectif :p