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

[jozerebel]

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

 

[zebanx]

Bonjour Jozerebel

Si vous ne voulez pas voir le message s'afficher, neutralisez le .Display
Avec tous les risques que cela comporte s'il y a une coquille sur l'envoi...

 

[jozerebel]

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.

 

[zebanx]

Re-
Bonjour Jozerbel

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

@+

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

 

[jozerebel]

Re-
Bonjour Jozerbel

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

@+

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....

 

[zebanx]

Re

Là je sèche.

Après, il faut peut-être reprendre l'intitulé complet du message et faire une recherche sur la toile.
A tout hasard avec une solution proposée :

https://support.microsoft.com/fr-fr/help/3189806/a-program-is-trying-to-send-an-e-mail-message-on-your-behalf-warning-i

@+

 

[jozerebel]

Merci Zebanx,

je vais regarder cela de plus près !

 

[jozerebel]

Bingo,

En modifiant les paramètres d'Outlook, tout passe correctement.

Merci Zebanx !

Je passe en résolu.

 

[zebanx]

Ok tant mieux.
Bonne journée.

 

[MOEZ-TUN]

bonjour
si Outlook a une mot de passe comment peut on introduire cette mot de passe
merci