pb envoi mail par cde sur send

[armelle1303]

bonjour le forum
je fais appel à vous car je tourne en rond même et surtout avec les recherches que j'ai fait car je trouve toujours la même réponse mais qui ne va pas pour mon problème.

Voilà j'utilise le code ci dessous pour envoyer un mail, cela marche nickel chez moi avec Excel 2002 mais quand j'arrive au boulot sur un excel 2000 cela plante :
arrivé à .Send : message la valeur de configuration de sendusing n'est pas valide ; erreur (80040220) , je fais débug , cela surligne.Send et si je fais F1 dessus envoie PRojet ou bibliothèque introuvable.

j'ai chercher sur le net, j'ai ajouté les lignes de config, cela ne change rien même message
j'ai regardé dans références Microsoft CDo xxx Library et Microsoft CDO for exchange 2000 sont bien cochées et pas déclarées manquantes


et cela bug toujours
Apparemment beaucoup ont eu ce problème , les réponses étaient d'ajouter les lignes de config mais après pas d'infos

rivate Sub btnSaveAndMail_Click()
'Cocher Microsoft CDO for Exchange xxxx Library
Dim objMessage As CDO.Message
Dim maPJ, strbody As String
Dim cdoConfig As CDO.Configuration
Dim Flds As Variant
Dim iConf As Object

Set objMessage = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
 
 Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas..com/cdo/configuration/sendusing") = CDO.cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.33.100.254"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
 End With

'récupérer la var de l'autre bt pout mettre dans ma pj
maPJ = "C:\Documents and Settings\Qual1\Bureau\M5.jpg"

strbody = "Hi there" 

With objMessage
.Subject = "Modification"
.From = "toto@x.fr"
.To = "titi@x.fr"
.TextBody = strbody
.AddAttachment maPJ
.Send
End With

Set objMessage = Nothing

End Sub

est ce que quelqu'un a eu ce problème et connait la solution ou déja la cause?

 

[armelle1303]

Re : pb envoi mail par cde sur send

en fait j'ai remplacé Dim objMessage As CDO.Message par dim as object
et j'ai ajouté :iConf.Load -1 ' CDO Source Defaults

et maintenant cela marche