Soyez le premier à donner votre avis sur cette source.
Snippet vu 34 050 fois - Téléchargée 30 fois
Set objEmail = CreateObject("CDO.Message") objEmail.From = "expediteur@expediteur.fr" objEmail.To = "destinataire@destinataire.fr" objEmail.Subject = "Sujet: ce que vous voulez" objEmail.Textbody = "corp du message que vous voulez envoyez" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusername") = login du compte yahoo objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = password du compte yahoo objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "smtp.yahoo.fr" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send
12 mars 2010 à 19:13
j'ai repris le tout et mis dans un module et tu masse aussi les Pieces jointes.....c'est pas beau la vie ?
Public Sub Mail(sender As String, dest As String, sujet As String, body As String, Attached As String, smtp_server As String, smtp_port As String)
'cette procedure permet d'envoyer un email
Set objEMail = CreateObject("CDO.Message")
objEMail.From = sender
objEMail.To = dest
objEMail.Subject = subj
objEMail.Textbody = message
objEMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEMail.Subject = sujet
objEMail.Textbody = body
objEMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
smtp_server
objEMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtp_port
If Attached <> "" Then
objEMail.AddAttachment (Attached)
End If
objEMail.Configuration.Fields.Update
objEMail.Send
End Sub
28 févr. 2010 à 21:35
est-ce qu'il y aurait moyen de modifier le code pour qu'il cherche un fichier ou plusieurs sur mon pc et que ça les envois par mail.
merci.
1 déc. 2009 à 00:36
__________________________________
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "expediteur@expediteur.fr"
objEmail.To = "destinataire@destinataire.fr"
objEmail.Subject = "Sujet: ce que vous voulez"
objEmail.Textbody = "corp du message que vous voulez envoyez"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Subject = "Sujet: ce que vous voulez"
objEmail.Textbody = "corp du message que vous voulez envoyez"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smtp.free.fr"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
7 déc. 2005 à 15:02
7 déc. 2005 à 15:00
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.