Discussion :

[ghitou]

Bonjour à tous,

J'essaie désespérément de créer un programme pour envoyer automatiquement des mails avec un fichier joint à partir d'Excel via outlook.

On m'a donné cette commande :

Application.CommandBars.ExecuteMso ("FileEmailAsPdfEmailAttachment")

Elle marche très bien puisqu'elle ouvre outlook automatiquement et un message avec la pièce jointe s'affiche. Mais j'ai différents problèmes. Tout d'abord, j'aimerais envoyé juste une feuille et pas tout le classeur.

Et ensuite, j'aimerais rajouter un texte (le même pour tous les destinataires) dans le corps du mail.

Est-ce que quelqu'un aurait une idée, sil-vous-plaît?

Merci d'avance!

[riaolle]

Bonjour,
Il y a sûrement d'autres façons de faire, mais voici une idée.
Structure génrale pour envoyer un mail via Outlook :

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
Sub sendMail(ad As String, location As String, wk As Integer)
    Dim ObjOutlook As New Outlook.Application
    Dim oBjMail
    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
      With oBjMail
        .To = "adresse@mail.com"
        .Subject = "Le sujet"
        .Body = "le texte du mail (evtlt une cellule contenant le texte à envoyer)"
        .AddAttachment ("fichier")
        .Send
    End With
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing
End Sub

Pour envoyer seulement une feuille, tu peux copier cette feuille (méthode Copy) dans un nouveau classeur et envoyer ce classeur.

[ghitou]

Merci pour ta réponse

du coup j'ai copié-collé ce modèle mais quand je veux le faire fonctionner, rien ne se passe.. En fait, il apparaît pas dans ma liste de macros. C'est normal?

[riaolle]

J'ai oublié de dire qu'il faut activer la référence Microsoft Outlook xx Object Library (Outils > Références).
Que veux-tu dire par "il apparaît pas dans ma liste de macros" ?

[ghitou]

Ah je pense que c'est ça mon problème dans les deux cas. Je ne trouve pas la référence Microsoft Outlook xx Object Library et du coup ca me met "projet ou bibliothèque introuvable".

[ghitou]

Riaolle, je veux dire que lorsque je vais sur la macro, et que je mets "exécution", rien ne se passe. C'est normal?

[Invité]

Bonjour,

https://www.developpez.net/forums/d1...t/#post7968025