Envoi d'une pièce jointe par email (OUTLOOK) avec macro excel

**francky74** · 01/08/2011, 14h40

Bonjour,

Je souhaite envoyer un mail avec la macro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
    Set a = Outlook.CreateItem(olMailItem)
    With a
        .To = "xxxx@xxxx.com"
        .Subject = "test mail pour COBAYE31"
        .BodyFormat = olFormatHTML
        .HTMLBody = "le texte en html avec du <b>gras</b> de <i>l'italique</i> etc..."
        .Send
    End With
End Sub

Mais je n'arrive pas à envoyer une pièce jointe. J'ai essayé avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
.Attachment
.Attachments
.Addattachment
.Attachmentadd
.Attachments.Add
.Addpiece
..etc

Je ne trouve pas non plus sur l'aide de Outlook.

Merci

**SfJ5Rpw8** · 01/08/2011, 14h48

pour t'aider tu aurais pu déclarer ta variable a :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Dim a As MailItem

et pour l'ajout de la piéce :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With a 
(...)
  .Attachments.Add ("C:\tmp\Monfichier.txt")
 
(...)

**francky74** · 01/08/2011, 14h55

Bonjour,

Tu me conseille de changer le SET a "olMailItem" par un Dim "MailItem" ?
Quelle est la différence s'il te plaît ?

J'avais déjà essayé avec Attachments.Add("fichier.html") mais cela ne fonctionne pas !
J'obtiens l'erreur suivante :
"Erreur d'exécution '-2147352567 (80020009)':
Echec de l'opération"

Peut-être y a-t-il un ordre lorsque j'écris les commandes ?

par exemple écrire ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
.subject = "le sujet du mail"
.Attachments.Add ("chemin")

Au lieu de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
.Attachments.Add ("chemin")
.subject = "le sujet du mail"

????

**SfJ5Rpw8** · 01/08/2011, 15h11

Envoyé par francky74

Bonjour,

Tu me conseille de changer le SET a "olMailItem" par un Dim "MailItem" ?
Quelle est la différence s'il te plaît ?

que nini .. il faut les 2 ... : avant d'utiliser une variable il faut la déclarer (même si VB.. le fait tout seul pour toi voir ici ) !!

Envoyé par francky74

Bonjour,
J'avais déjà essayé avec Attachments.Add("fichier.html") mais cela ne fonctionne pas !
J'obtiens l'erreur suivante :
"Erreur d'exécution '-2147352567 (80020009)':
Echec de l'opération"

et avec le bon chemin ?
[edit] tu met quoi dans ton code à la place de "Chemin" ?

**francky74** · 01/08/2011, 15h32

Ok j'ai ajouté aussi la ligne dim ...

voici mon chemin "C:\Users\MonID\Desktop\questionnaire.html"
Ceci dit, j'avais oblié une parenthèse, et donc tout a évolué !
avec le code suivant, j'obtiens le message d'erreur avec .Add surligné : "Argument non facultatif"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Attachments.Add = ("C:\Users\MonID\Desktop\questionnaire.html")

C'est bizzare ... argument non facultatif ... cela signifie qu'il est obligatoire ... et pourtant il est présent !

**SfJ5Rpw8** · 01/08/2011, 15h41

pourquoi un signe : = ?

**francky74** · 01/08/2011, 16h12

Je l'ai mis parce que les autres commandes en ont un.
par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
.To = "xxx@xx.fr""
.Subject = "blablasujet"
etc ...

Mais en fait il ne le fallait pas !

Résultat

ca marche !

et voilà

Bonjour !

Existe-t-il une liste avec des commandes pour contrôler OUTLOOK grâce aux macros EXCEL ??? Je n'en ai trouvé nulle part !

Merci,

**MarcelG** · 02/08/2011, 09h50

Bonjour Franck, Bonjour le Forum,

1 - Dans tes options de ton éditeur VBE, coche l'option

"Complément automatique des instructions"

2 - Après ton instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With a

Le fait d'écrire un point "." te donnera toutes les méthodes applicables. Il ne te restera plus alors qu'à consulter l'aide en ligne (F1) de chaque méthode.

Bonne journée à tous.