Outlook sans question

Commenter

Contenu du snippet

Il faut pour bien fonctionner:
Microsoft ADO 2.5 minimum
Microsoft CDO pour Windows 2000 ou Microsoft CDO pour Exchange 2000
Non testé sous windows 9x
Ca marche, mais il faut chez moi metter le smtp en dur(ip)

Source / Exemple : 


Sub MailEnvoi(Destinataire As String, Sujet As String, Optional Correspondant_CC As String, Optional Correspondant_BCC As String, Optional CorpsDuTexte As String, Optional Attach As Variant)
Set objEmail = CreateObject("CDO.Message")
'Set objEmail = CreateObject("cdonts.NewMail")

    objEmail.From = "XXXX"
    objEmail.To = Destinataire
    objEmail.CC = Correspondant_CC
    objEmail.BCC = Correspondant_BCC
    objEmail.Subject = Sujet
    objEmail.TextBody = CorpsDuTexte
        If Attach <> "" Then objEmail.AddAttachment Attach
        
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    'Name or IP of Remote SMTP Server
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.7.1"
    '"smtp.radissonSAS.com" 192.168.X.X"

    'Server port (typically 25)
    'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

    objEmail.Configuration.Fields.Update

    objEmail.Send

End Sub

A voir également

S'inscrire maintenant

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.