Envoi mail si outlook fermé

[Manu62]

Bonjour le forum,
J'utilise le code suivant pour l'envoi de mail depuis excel.
Il marche pas trop mal, sauf quand outlook est fermé.
peux t'on mettre les éléments dans la pile d'envoi si outlook est fermé?

Merci à tous
Manu
Sub mail ()
Dim OutlookApp As Outlook.Application
Dim MItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Set OutlookApp = New Outlook.Application
Set MItem = OutlookApp.CreateItem(olMailItem)
Set myAttachments = MItem.Attachments
myAttachments.Add Range("Q12").Value 'Pas de signe "=" apres Add
With MItem
.To = [Q23]
.Subject = "Prise en Charge"
.Body = "Bonjour, Ci joint notre demande de prise en charge. "
.Send
End With
Sheets("- MENU GENERAL -").Select
End Sub

Manu

 

[GIBI]

Re : Envoi mail si outlook fermé

Bonjour,

Il faut activer l'application outlook, vas voir un exemple qui fonctionne à l'adresse suivante

https://www.excel-downloads.com/threads/relance-client-par-mail.96874/

GIBI

 

[Hulk]

Re : Envoi mail si outlook fermé

Hello,

Si j'ai bien compris ce que tu veux savoir, et sous toutes réserves, quand tu envoies et qu'Outlook est fermé, de toutes façons, Outlook stoque tout dans la boîte d'envoi.

Quand tu ouvres Outlook, il envoie tous les messages que tu as envoyé depuis Excel.

Cdt.

Hulk.