Discussion :

[JéréMail]

Bonjour,

J'aimerai automatiser la tache d'envoi d'un document Word en pièce jointe avec Outlook par l'intermédiare de Word. J'ai essayé avec une macro et le bouton de la barre d'outils standard (message electronique). Outlook s'ouvre correctement avec mon document en pièce jointe mais les champs "A..." et "Objet :" reste à renseigner manuellement.
Quelles sont les méthodes et fonctions sous VBA Outlook pour les remplir et envoyer le message ?

Merci de me guider.

[ouskel'n'or]

Hello,

Je suis ton topic car le sujet m'intéresse. Je sais qu'il est passé il y a quelques temps sur le forum (environ trois semaines) mais j'ai oublié de noter. Et là, je n'ai pas le temps de rechercher.
Par contre si tu trouves quelque chose, serais-tu assez gentil pour nous passer l'info sur le forum

Merci

A+

[Megaxel]

J'ai ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub EnvoyerMail(ByVal Texte As String)
    'Et on l'envoie par mail
    Set objOL = New Outlook.Application
    Set objMail = objOL.CreateItem(olMailItem)
    ObjetMail = "Rapport de l'alimentation automatique via SPEED"
    AdresseDestinataires = "titi@Blabla.fr"
    'AdresseDestinataires = "titi@Blabla.fr"
 
    With objMail
        .To = AdresseDestinataires
        '.CC = AdresseCopie
        .Subject = ObjetMail
        .Body = Texte
        '.Attachments.Add ActiveWorkbook.FullName
        .Display
        '.Send  'L'opérateur doit pouvoir ajouter un commentaire avant d'envoyer le mail
    End With
 
    Set objMail = Nothing
    Set objOL = Nothing
 
End Sub

Ça vous plait?

[ouskel'n'or]

Non, ça me plait pas du tout ! J'ai Eudora, pas outlook...

Mais merci quand même.

A+

[Megaxel]

Ha oui, mais on me demande du Outlook, je fais du Outlook...
Et dans 2 minutes, Théo va me faire la même chose en 1 ligne et me dire: "Tu n'as rien de plus compliqué, Megaxel?"

[Theocourant]

Ha oui, mais on me demande du Outlook, je fais du Outlook...
Et dans 2 minutes, Théo va me faire la même chose en 1 ligne et me dire: "Tu n'as rien de plus compliqué, Megaxel?"

nop

Connais pas le pilotage de Outlook

En plus, je n'utilise, à titre perso, que Thunderbird de Mozilla.org 8)

Théo

[Megaxel]

Dès que toutes les entreprises seront passées aux logiciels libres...