IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Outlook Discussion :

Insérer un PDF en automatique à chaque nouveau mail


Sujet :

VBA Outlook

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Méthodes
    Inscrit en
    Février 2022
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 30
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : Méthodes
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2022
    Messages : 2
    Points : 1
    Points
    1
    Par défaut Insérer un PDF en automatique à chaque nouveau mail
    Bonjour,
    Je suis sur le point de lancer une offre promotionnel dans ma société,
    pour ce faire dans chaque mail outlook pour chaque client avec qui je converse je dois insérer un pdf.
    J'aimerais savoir si il est possible de joindre automatiquement ce pdf a chaque nouveau mail créé?

    Je pense que cela passe par du vba mais je ne sais pas comment m'y prendre...

    En vous remerciant pour votre aide,
    Cordialement,

  2. #2
    Nouveau Candidat au Club
    Homme Profil pro
    Méthodes
    Inscrit en
    Février 2022
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 30
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : Méthodes
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2022
    Messages : 2
    Points : 1
    Points
    1
    Par défaut Partie de solution...
    J'ai réussi à coder un bout de programme qui fonctionne avec l'aide d'autres discussions^^ :

    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
    24
    25
    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim obj As Object
        Dim Oitem As Outlook.MailItem
        Set Oitem = Application.ActiveExplorer.ActiveInlineResponse
        If Oitem Is Nothing Then
            Set obj = Application.ActiveWindow
            If TypeOf obj Is Outlook.Inspector Then
                Set obj = obj.CurrentItem
                If obj.Class = olMail Then
                    Set Oitem = obj
                End If
            End If
        End If
     
        If Oitem Is Nothing Then End
     
            Dim MaPJ
            MaPJ = "C:\xxxxx.pdf"
            If Dir(MaPJ) <> "" Then
                Oitem.Attachments.Add MaPJ
    Else
    MsgBox "Pas de Pièce Jointe"
    End If
     
    End Sub
    Le seul problème est que l'envoi du mail n'est pas généré par Outlook directement...
    En fait c'est un logiciel tiers qui effectue une connexion et lance l'édition du mail , du coup ma macro ne marche pas..., elle ne se lance pas du tout..
    Si quelqu'un a une solution ?

Discussions similaires

  1. Envoi automatique d'un mail après chaque modification du classeur
    Par Thebast69 dans le forum Macros et VBA Excel
    Réponses: 31
    Dernier message: 10/05/2022, 19h43
  2. Réponses: 1
    Dernier message: 22/04/2016, 17h38
  3. [XL-2010] Envoyer un mail automatique chaque début de semaine
    Par nassiri dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 29/09/2013, 23h17
  4. Réponses: 0
    Dernier message: 09/05/2012, 13h10
  5. Envoie de mail automatique chaque jour
    Par DeWaRs dans le forum VB.NET
    Réponses: 4
    Dernier message: 09/04/2012, 18h38

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo