pb avec une macro (Wiki-Michelxldsuite)

[Gipéhel]

Bonjour à tous,
J'ai essayé d'utiliser la macro trouvée dans Wiki MichelXLDsuite en l'adaptant à mes besoins, mais un message d'erreur apparaît à l'exécution (erreur d'exécution'-2147220960(80040220)':
The 'SendUsing configuration' value is invalid.
J'ai Windows 2000 et Office 2003. Est-ce la cause de mes soucis ?


Sub EvoiMailSansMessageConfirmation()
'testé avec XP
Dim iMsg As Object, iConf As Object
'Dim iBP As Object

Const cdoSendUsingPickup = 1

Set iMsg = CreateObject('CDO.Message')
Set iConf = CreateObject('CDO.Configuration')

With iMsg
Set .Configuration = iConf
.To = 'leforum@xld.fr'
.Subject = 'Message du forum Xld'
.HTMLBody = 'Ceci est un essai...'
'Set iBP = iMsg.AddAttachment('C:\\lefichier.txt')
.Send
End With

End Sub

Merci d'avance.
JPL.

 

[MichelXld]

bonjour Gipéhel

les informations complementaires données par Zon dans ce lien pourront peut etre t'aider

Lien supprimé


bonne journée
MichelXld