ENVOI MAIL (orange) PAR MACRO Excel

bONJOUR

Je souhaiterais envoyer un mail à partir d'une macro excel , comment faire ?

Infos :

mon excel 2007

messagerie par orange

détail du mail :

destinataire

objet

pièce jointe

pouvez-vous m'aider pour un code standard (je pourrai gérer les variables etc... je pense)

MERCI

re-bonjour,

Bon, comme mon mail n'a pas eu beaucoup d'écho.... j'ai finalement cherché depuis 2 jours et j'ai trouvé !!!!!!!!!!!

donc je vous en fais profiter sachant qu'il vous faudra alimenter les variables

Dim MAIL_TO As Variant, MAIL_SUBJECT As Variant, MAIL_CONTENU As Variant

    ' MAIL_TO = à déclarer
    ' MAIL_SUBJECT = à alimenter
    ' MAIL_CONTENU = à alimenter

Dim objEmail
    'MAIL
    Const MAIL_SMTPSERVER = "smtp.orange.fr"
    Const MAIL_FROM = "votre adresse email"

    Set objEmail = CreateObject("CDO.Message")
    objEmail.From = MAIL_FROM
    objEmail.To = MAIL_TO
    objEmail.BCC = MAIL_FROM
    objEmail.Subject = MAIL_SUBJECT
    objEmail.Textbody = MAIL_CONTENU
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = MAIL_SMTPSERVER
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update
    objEmail.SEND
    Set objEmail = Nothing

j'espère que ça aidera certains.....