XL 2010 [RESOLU] Envoi de mails outlook par Excel VBA

  • Initiateur de la discussion Initiateur de la discussion jozerebel
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jozerebel

XLDnaute Occasionnel
Bonjour le fofo,

J'essaie d'automatiser l'envoi de feuilles transformées en pdf par Outlook via Excel.

J'ai une macro qui fait le job mais à chaque fois Outlook me demande de cliquer pour autoriser l'envoi. Ce qui n'est pas top pour automatiser une tâche, vous en conviendrez.

J'ai cherché un peu sur le net avec des send keys ou autres solutions mais rien ne fonctionne. Comment je peux adapter ma macro pour contourner ce pb ?

D'avance je vous remercie.


Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

fichier = nom & ".pdf"
Corp = "Bonjour," & _
vbCrLf & vbCrLf & vbCrLf & _
"Message envoyé automatiquement" & _
vbCrLf & vbCrLf & vbCrLf & _
"Ci-joint." & _
vbCrLf & vbCrLf & vbCrLf & _
"Cordialement."

With olMail
.To = AdresseMail
.BCC = ""
.Subject = "" & " - " & titre & " au 24/06/2019"
.Body = Corp
.Display
.Attachments.Add chemin & fichier
.Send


End With
Set olApp = Nothing
Set olMail = Nothing
 
Bonjour Zebanx, bonjour le Fofo,

Malheureusement, neutraliser le .Display ne contourne pas mon pb.
Cela masque uniquement la fenêtre Outlook mais le message d'avertissement apparaît toujours, m'indiquant qu'un programme tente d'envoyer un mail et je dois, après quelques secondes, cliquer sur Accepter pour envoyer le mail.

Une idée de contournement ?

D'avance merci.
 
Re-
Bonjour Jozerbel

Essayez de rajouter un displayalerts = false dans le code peut-être.

@+

VB:
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

fichier = nom & ".pdf"
Corp = "Bonjour," & _
vbCrLf & vbCrLf & vbCrLf & _
"Message envoyé automatiquement" & _
vbCrLf & vbCrLf & vbCrLf & _
"Ci-joint." & _
vbCrLf & vbCrLf & vbCrLf & _
"Cordialement."

Application.DisplayAlerts = False

With olMail
.To = AdresseMail
.BCC = ""
.Subject = "" & " - " & titre & " au 24/06/2019"
.Body = Corp
.Display
.Attachments.Add chemin & fichier
.Send

End With
Application.DisplayAlerts = True
Set olApp = Nothing
Set olMail = Nothing
 
Re-
Bonjour Jozerbel

Essayez de rajouter un displayalerts = false dans le code peut-être.

@+

VB:
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

fichier = nom & ".pdf"
Corp = "Bonjour," & _
vbCrLf & vbCrLf & vbCrLf & _
"Message envoyé automatiquement" & _
vbCrLf & vbCrLf & vbCrLf & _
"Ci-joint." & _
vbCrLf & vbCrLf & vbCrLf & _
"Cordialement."

Application.DisplayAlerts = False

With olMail
.To = AdresseMail
.BCC = ""
.Subject = "" & " - " & titre & " au 24/06/2019"
.Body = Corp
.Display
.Attachments.Add chemin & fichier
.Send

End With
Application.DisplayAlerts = True
Set olApp = Nothing
Set olMail = Nothing
Malheureusement, toujours le même message d'Outlook....
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
817
Réponses
2
Affichages
809
Retour