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

Outlook Discussion :

Attacher une pièce jointe systématiquement [OL-2010]


Sujet :

Outlook

  1. #1
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Janvier 2014
    Messages
    37
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Janvier 2014
    Messages : 37
    Points : 18
    Points
    18
    Par défaut Attacher une pièce jointe systématiquement
    bonjour,

    je dispose d'un code sur un classeur EXCEL qui me permet d'envoyer un mail via outlook.

    Le code marche bien.

    J'ai dupliquer ce code pour l'adapter en cas de modification.

    Si je lance le code après modification tout fonctionne mais si je retente de modifier il m'envoie le mail mais sans la pièce jointe.

    je suis obliqger de fermer le fichier pour refaire ma modif.

    En bref si j'execute mon code plusieurs fois d'affilé la pièce jointe n'est plus jointe.

    N y a t il pas moyen de faire que la pièce jointe soit présente à chaque coup?

    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
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    Sub mailcorrige()
     
    Dim bstarted As Boolean
    Dim oOutlookApp As Outlook.Application
    Dim oItem As Outlook.MailItem
     
     
     
    On Error Resume Next
     
    Set oOutlookApp = GetObject(, "Outlook.Application")
    If Err <> 0 Then
         Set oOutlookApp = CreateObject("Outlook.Application")
         bstarted = True
    End If
     
    Set oItem = oOutlookApp.CreateItem(olMailItem)
     
    liste = "toto@test.fr"
     
    With oItem
         .To = liste
     
         .Subject = "Rapport Corrigé quotidien du " & Format(ActiveSheet.Range("d1"), "DD-MM-YY")
         .Body = "Bonjour" & Chr(13) & Chr(13) & "Veuillez trouver ci joint le rapport quotidien version corrigée pour la journée du " & Format(ActiveSheet.Range("d1"), "DD-MM-YY") & Chr(13) & Chr(13) & "Cordialement"
        .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, DisplayName:="Rapport en pièce jointe"
         .Send
    End With
     
    If bstarted Then
         oOutlookApp.Quit
    End If
     
    Set oItem = Nothing
    Set oOutlookApp = Nothing
     
    End Sub
    a savoir que le activedocument est un fichier Word ouvert au moment de l'exécution du code.

    Si quelqu'un peux m'aider.

    je vous remercie d'avance.

  2. #2
    Membre à l'essai
    Homme Profil pro
    Inscrit en
    Janvier 2014
    Messages
    37
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : Janvier 2014
    Messages : 37
    Points : 18
    Points
    18
    Par défaut
    en passant par CDO je ne rencontre plus de problème.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 3
    Dernier message: 09/03/2013, 02h43
  2. Ouvrir un client mail et attacher une pièce jointe
    Par PerpetualSnow dans le forum Framework .NET
    Réponses: 3
    Dernier message: 28/10/2009, 18h33
  3. attacher une piéce jointe
    Par dev.exe dans le forum ASP.NET
    Réponses: 5
    Dernier message: 11/08/2008, 19h28
  4. Réponses: 2
    Dernier message: 06/12/2005, 12h53
  5. [Indy] Récupérer une pièce jointe
    Par ced00 dans le forum Web & réseau
    Réponses: 2
    Dernier message: 21/10/2005, 13h11

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