Pb de variable non définie !!!???

[Ludovic]

Bonjour le forum,

J'ai récupérer ce code de vinc26 pour envoyer un mail;

Dim MItem As Outlook.MailItem
Dim Sujet, Msg, EmailAddr As String
With MItem
.To = EmailAddr
.Subject = Sujet
.Body = Msg
.Send
End With
...
et à la ligne '.To =' il me met une erreur 91 , Variable objet ou variable de bloc With non définie. Je ne vois pas pourquoi? et vous ?

Ludovic

 

[MichelXld]

bonjour Ludovic

j'espere que cette adaptation pourra t'aider


Sub envoiMail()
'testé avec excel XP
' necessite d'activer la reference microsoft outlook 10.0 object library
Dim OlApp As New Outlook.Application
Dim mItem As Outlook.MailItem
Dim Sujet As String, Msg As String, EmailAddr As String

Set mItem = OlApp.CreateItem(olMailItem)

EmailAddr = 'leForum@xld.fr'

With mItem
.To = EmailAddr
.Subject = Sujet
.Body = Msg
.Send
End With

End Sub


bonne journée
MichelXld