Envoi automatique d'un mail avec outlook

Bonjour,

Dans un fichier Excel, je souhaite créer un bouton (macro) pour :

1) ouvrir directement une fenêtre de message Outlook avec des destinataires prédéfinis (toujours les mêmes).

2) ajouter automatiquement une pièce jointe (fichier PDF) depuis un emplacement fixe sur mon disque, en mode couper/coller.

il n'y aura que le fichier en question à cet emplacement.

3) je veux pouvoir ajouter l'objet du mail et du texte manuellement.

4) je veux pouvoir cliquer sur le bouton envoyer manuellement.

En attente de vos solutions !

Merci d'avance.

Dadams51

Bonjour,

une solution à adapter

Sub aargh()
    Set olApp = CreateObject("outlook.application")
    Set olMail = olApp.CreateItem(0)
    Ficjoint = "d:\downloads\TD5-VBA.pdf"
    With olMail
        .To = "adres1@test.com;adres2@test.com"
        .Attachments.Add Ficjoint
        .Display
    End With
End Sub

Bonsoir h2so4,

Merci pour cette réponse. Mais dans mon cas, le nom du fichier PDF va varier...comment faire ?

Dadams51

bonsoir

s'il n'y a qu'un seul fichier dans le répertoire

Sub aargh()
    Set olApp = CreateObject("outlook.application")
    Set olMail = olApp.CreateItem(0)
    Ficjoint = dir("d:\downloads\*.pdf")
    With olMail
        .To = "adres1@test.com;adres2@test.com"
        .Attachments.Add rep & Ficjoint
        .Display
    End With
End Sub

h2so4,

D'accord, mais je voudrais que le fichier, une fois joint, ne soit plus présent dans le répertoire. Comment faire ?

Dadams51

bonsoir,

une solution qui inclut la suppression du fichier

Sub aargh()
    Set olApp = CreateObject("outlook.application")
    Set olMail = olApp.CreateItem(0)
    rep = "d:\downloads\"
    ficjoint = Dir(rep & "tem*.pdf")
    With olMail
        .To = "adres1@test.com;adres2@test.com"
        .Attachments.Add rep & ficjoint
        .Display
    End With
    Kill rep & ficjoint
End Sub

Bonsoir,

Ok, ça marche, merci, c'est résolu !

@+

Dadams51

Rechercher des sujets similaires à "envoi automatique mail outlook"