Aide sur code VBA

Signaler
Messages postés
17
Date d'inscription
jeudi 8 mars 2018
Statut
Membre
Dernière intervention
17 janvier 2020
-
m@rina
Messages postés
15716
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
18 janvier 2020
-
Hello tout le monde,

je n'arrive pas à activer ma macro... de ce que je comprends, c'est le mot "contenu" qu'il ne digère pas! j'ai tenté de le remplacer par "body" mais ça ne veut pas non plus.

Merci d'avance de votre aide :)

Sub envoiautomatique()
Dim fichier As Variant

'le programme ouvre une fenêtre pour sélectionner le fichier'
fichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")

MsgBox fichier

'ici on demande d'utliser outlook comme messagerie'
Dim mamessagerie As Object
Dim monmessage As Object
Set mamessagerie = CreateObject("outlook.application")
Set monmessage = mamessagerie.CreateItem(0)

'ici nous définissons les champs du mail'
'entre guillemet il faut indiquer les adresses mail'
monmessage.To = "Adresse mail 1"
monmessage.To = "Adresse mail 2" 
monmessage.CC = "Adresse mail 3"
'ici nous commençons la rédaction du mail'
monmessage.Attachments.Add fichier

'sujet du mail'
monmessage = "test envoi ZP12"

'Corps du mail'
contenu = "bonjour,"
contenu = "contenu & chr(10) & chr(13)"
'les caractères chr indique un saut de ligne'
contenu = contenu & "veuillez trouvez en PJ le ZP12" & Chr(10) & Chr(13)
contenu = contenu & "cdt" & Chr(10) & Chr(13)
contenu = contenu & "XXXXXX"
monmessage.Body = Body

'ici on provoque l'envoi du mail et de sa PJ'
monmessage.Send

'reinitialisation de la messagerie'
Set mamessagerie = Nothing

'Boîte de dialogue qui confirme l'envoi du message et de sa PJ'
MsgBox "Votre mail a nien été envoyé"

End Sub


Adresses mail et nom supprimés Modération CCM

2 réponses

Messages postés
6475
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
17 janvier 2020
438
Messages postés
15716
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
18 janvier 2020
8928
Bonjour,

Que ce soit "contenu" ou un autre nom de variable, Excel s'en fiche... Par contre, Body c'est une propriété, ça n'a donc rien à voir.

Donc, déjà je vois deux problèmes dans ton code :
1) contenu = "contenu & chr(10) & chr(13)" => tu supprimes les guillemets
2) monmessage.Body = Body => ça ne veut rien dire
remplace par monmessage.Body=contenu

m@rina