Soucis ouverture Outlook VBA
thesentry
Messages postés
1092
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un petit soucis. J'ai associé l'ouverture d'Outlook à un commandbutton. Hier cela fonctionnait, aujourd'hui ça ne fonctionne plus.
Mon code :
Le message d'erreur :
Extension Multimedia Conference pour MS Office
Tentative de lecture ou d'écriture de mémoire protégée. Cela indique souvent qu'une autre mémoire est endommagée.
Une solution ?
Merci d'avance.
J'ai un petit soucis. J'ai associé l'ouverture d'Outlook à un commandbutton. Hier cela fonctionnait, aujourd'hui ça ne fonctionne plus.
Mon code :
Sub SendMail_Outlook()
Dim OL As Object
Dim OLmail As Object
Set OL = CreateObject("Outlook.Application")
Set OLmail = OL.CreateItem(0)
With OLmail
.To = "0" & Sheets("suivi").Range("A19").Value & "@plop.fr"
.Subject = "XXXXXXX"
.body = "BLABLA"
'.display
End With
End Sub
Le message d'erreur :
Extension Multimedia Conference pour MS Office
Tentative de lecture ou d'écriture de mémoire protégée. Cela indique souvent qu'une autre mémoire est endommagée.
Une solution ?
Merci d'avance.
1 réponse
-
Bonjour,
si vous mettez .display en commentaire, il faut un .send pour envoyer
Sub SendMail_Outlook()
Dim OL As Object
Dim OLmail As Object
Set OL = CreateObject("Outlook.Application")
Set OLmail = OL.CreateItem(0)
With OLmail
.To = "0" & Sheets("suivi").Range("A19").Value & "@plop.fr"
.Subject = "XXXXXXX"
.Body = "BLABLA"
'.display
.Send
End With
Set OLmail = Nothing
Set OL = Nothing
End Sub
