Macro envoi d'un classeur par outlook en PJ

**Absolehm** · 03/05/2018, 13h50

Bonjour,

Je n'arrive pas a trouver de code fonctionnel sur google pour configurer une macro

Pour faire simple :

- Envoyer le classeur complet par outlook en cliquant sur un bouton
- A une adresse mail pre definie.
- Avoir une fenetre de confirmation avant envoi : Oui/Non
- Avoir un message qui confirme l'envoi : Mail envoyé

A chaque fois je tombe sur des topics pas tres claire avec des reponses evolutive et au final la macro n'est pas adpatée à ce que je recherche.

D'avance merci.

Cordialement,

Abso

**halaster08** · 03/05/2018, 14h44

Bonjour

- Envoyer le classeur complet par outlook en cliquant sur un bouton
- A une adresse mail pre definie.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub mail_basique()
Set ObjOutlook = CreateObject("outlook.application")
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
    With oBjMail
        .To = "test@test.com" 'destinataire
        '.CC =  les destinataires en copie
       .Subject = "test titre " ' l'objet du mail
       .Body = "test body" 'le corps du mail ,son contenu
       .Attachments.Add "D:\test.xls" 'pièce jointe ou thisworkbook.path & "\" & thisworkbook.name si tu veux envoyer le classeur contenant la macro
       .Display
 
    End With
 
End Sub

- Avoir une fenetre de confirmation avant envoi : Oui/Non

.display t'affiche le mail, a toi de cliquer sur envoyer par la suite.

- Avoir un message qui confirme l'envoi : Mail envoyé

A voir dans les options d'Outlook, pas certain que ce soit possible

**Absolehm** · 03/05/2018, 17h00

Bonjour halaster08,

Merci beaucoup pour ta réponse.

J'ai mis ca pour le chemin :

D:\BS\Pricing_Offered_Tool_V2.xls

et j'ai recu un retour qui me dit : You don't have appropriate permission to perform this operation.

Cordialement,

Abso