Modification envoi mail sans outlook

bonjour , a tous je viens vous demandez vos lumière .

je souhaite modifier mon fichier pour les envoie de mail mais je ne sais pas si cela est possible avec j'ai cru comprendre la fonction cdo .

pourriez vous me dire si cela est possible avec mon fichier ??

merci d'avance roms.

bonjour a tous voici la solution que j'ai trouver .

Sub envoi_email(destinataire As String, sujet As String, texte As String)
Dim mMessage As Object
Dim mConfig As Object
Dim mChps

    Set mConfig = CreateObject("CDO.Configuration")

    mConfig.Load -1
    Set mChps = mConfig.Fields
    With mChps
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        'Adapter suivant votre serveur de mail. (exemple pour Gmail.)=> Hormail "smtp.live.com"
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        'En principe, 25 fonctionne avec tout les serveurs.
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

        'Vous pouvez essayer sans ces trois lignes
       'Mais si votre serveur demande une authentification,
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "@gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "code"
        'Si votre serveur demande une connexion sûre (SSL)
       .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
        .Update
    End With

    Set mMessage = CreateObject("CDO.Message")
    With mMessage
    Set .Configuration = mConfig
        .To = destinataire
        .From = "@gmail.com"
        .Subject = sujet
        .htmlbody = "<FONT FACE='Calibri'>" & texthtml(texte) & "</FONT>"
        'Pour ajouter une pièce jointe, un fichier, classeur, image etc.
       '.AddAttachment 'Chemin et nom complet du fichier à joindre
       .Send
    End With
    Set mMessage = Nothing
    'Libère les ressources
   Set mConfig = Nothing
    Set mChps = Nothing
End Sub

bonne journée


j'ai besoin d'un peut d'aide pour l'envoie du fichier pour que le fichier qu'i soit envoyer soit le plus récent des sauvegarde ,

"C:\Users\pourcel\Desktop\SAUVEGARDE DEMO" voila le chemin du fichier

"suivi des demandes de démo " & Format(Now, "dd-mm-yy--hh-mm-ss") & ".xlm" et voila le nom du fichier

je vous remercie de votre aide

Rechercher des sujets similaires à "modification envoi mail outlook"