Soucis ouverture Outlook VBA

thesentry Messages postés 1014 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 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 :

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.
A voir également:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
thesentry Messages postés 1014 Date d'inscription   Statut Membre Dernière intervention   16
 
Bonjour

Et que signifie le .send ? envoi automatique ? car s'il y a la possibilité de faire un envoi automatique, ça serait cool !

Merci
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

.send est pour envoi automatique sans verif
0