Envoi de mail

Le 29/11/2017 à 22:57

Bonjour le forum !

SOS besoin d'aide pour code VBA d'envoi de mail

j'ai une erreur mais je ne trouve pas ou help help help

Merci à toi ô forum!!!!! pour ton aide

ci dessous mon code:

Sub envoiclasseur()

Dim fichier As Variant

'Attention aller activer l'option de reference dans le menu outils/reference

'le programme ouvre une fenetre ou l'on va chercher le fichier

fichier = Application.GetOpenFilename("tous les fichiers(*.*),*.*")

MsgBox fichier

'ici on demande d'utiliser Outlook comme client de messagerie'

Dim MaMessagerie As Object

Dim MonMessage As Object

Set MaMessagerie = CreateObject("Outlook.application")

Set MonMessage = MaMessagerie.createitem(0)

'ici nous definissons les champs du mail'

'entre guillement il faut indiquer les adresses mail'

MonMessage.to = "xxxxxxxxxx@hotmail.fr"

MonMessage.CC = "xxxxxxxxx@hotmail.fr"

'MonMessage.CCI = "xxxxxxxxxxx@hotmail.fr"

'ici nous commencons la redaction du mail

MonMessage.attachments.Add fichier

'Sujet du mail ((ligne ou il y a peut être une erreur))))

MonMessage = "Test envoi PJ"

'Corp du mail

contenu = "salut franco,"

contenu = contenu & Chr(10) & Chr(13)

'les caracteres Ch indiquent un saut de ligne

contenu = contenu & "Veuillez trouver en piece jointe les BPE pour edition de plan" & Chr(10) & Chr(13)

contenu = contenu & "Cordialement" & Chr(10) & Chr(13)

contenu = contenu & "Service client"

MonMessage.body = "contenu"

'ici on provoque l'envoi du mail et de sa pj

MonMessage.Send

'reinitialisation de la messagerie

Set MaMessagerie = Nothing

'Boite de dialogue de confirmation d'envoi

MsgBox "Votre mail à ben été envoyé"

End Sub

Le 30/11/2017 à 00:05

bonsoir

correction de ton code

Sub envoiclasseur()

    Dim fichier As Variant

    'Attention aller activer l'option de reference dans le menu outils/reference
    'le programme ouvre une fenetre ou l'on va chercher le fichier

    fichier = Application.GetOpenFilename("tous les fichiers(*.*),*.*")

    MsgBox fichier

    'ici on demande d'utiliser Outlook comme client de messagerie'

    Dim MaMessagerie As Object
    Dim MonMessage As Object
    Set MaMessagerie = CreateObject("Outlook.application")
    Set MonMessage = MaMessagerie.createitem(0)

    'ici nous definissons les champs du mail'
    'entre guillement il faut indiquer les adresses mail'

    MonMessage.to = "xxxxxxxxxx@hotmail.fr"
    MonMessage.CC = "xxxxxxxxx@hotmail.fr"
    'MonMessage.CCI = "xxxxxxxxxxx@hotmail.fr"

    'ici nous commencons la redaction du mail
    MonMessage.attachments.Add fichier

    'Sujet du mail ((ligne ou il y a peut être une erreur))))
    MonMessage.Subject = "Test envoi PJ"

    'Corp du mail
    contenu = "salut franco,"
    contenu = contenu & Chr(10) & Chr(13)

    'les caracteres Ch indiquent un saut de ligne
    contenu = contenu & "Veuillez trouver en piece jointe les BPE pour edition de plan" & Chr(10) & Chr(13)
    contenu = contenu & "Cordialement" & Chr(10) & Chr(13)
    contenu = contenu & "Service client"
    MonMessage.body = contenu

    'ici on provoque l'envoi du mail et de sa pj
    MonMessage.send

    'reinitialisation de la messagerie
    Set MaMessagerie = Nothing

    'Boite de dialogue de confirmation d'envoi
    MsgBox "Votre mail à ben été envoyé"
End Sub
Rechercher des sujets similaires à "envoi mail"