Envois mail sans outlook office et avec un message.

[carlos]

Bonjour

j'ai recherché sur les forums plusieurs solutions mais aucune ne me convient véritablement.
Pour simplifier , je souhaiterais envoyé un mail et un fichier joint ( ca c'est bon , j'ai trouvé) mais pas avec outlook office car les personnes qui me repondront n'auront pas forcement outlook office.
J'aimerai aussi pouvoir ajouter un message ( Le "Body" ne marche pas ).

Merci

Carlos

 

[kiki29]

Re : Envois mail sans outlook office et avec un message.

salut, voir sur Example Code for sending mail from Excel via CDO

 

[carlos]

Re : Envois mail sans outlook office et avec un message.

Salut kiki29

j'ai testé ce code du lien :
Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
' Dim Flds As Variant

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

' iConf.Load -1 ' CDO Source Defaults
' Set Flds = iConf.Fields
' With Flds
' .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
' = "Fill in your SMTP server here"
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' .Update
' End With

strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

With iMsg
Set .Configuration = iConf
.To = "karl.longlune@free.fr"
.CC = ""
.BCC = ""
.From = "karl.longlune@free.fr" '"""Ron"" <ron@something.nl>"
.Subject = "New figures"
.TextBody = strbody
.Sendmessage suivant : 'La valeur de configuration »send using « est non valide
End With

End Sub

J'ai essayé avec mon adresse mail mais ca bloque au meme endroit
j'ai aussi mis a jour la reference CDO 2000 librairy

Ca bloque sur le : .send

Merci pour l'aide

Carlos

 

[David]

Re : Envois mail sans outlook office et avec un message.

Bonjour

Je m'incruste un peu, j'ai le même problème.

Mon fichier marche parfaitement sur XP/office 2007, mais j'ai le message d'erreur 'La valeur de configuration »send using « est non valide quand je l'utilise avec W7/office 2007.La référence CDO 2000 library est bien coché.

Utilises tu windows 7 ?

Peut être que le problème vient du fait que windows 7 n'a plus de client mail (outlook express ou windows mails) et qu'il manque du coup quelques dll.

Quelqu'un a une idée ?

 

[carlos]

Re : Envois mail sans outlook office et avec un message.

Bonjour
effectivement je suis aussi sous w7
Carlos