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 :

Problème avec les pièces jointes


Sujet :

VBA Outlook

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2003
    Messages
    336
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2003
    Messages : 336
    Points : 341
    Points
    341
    Par défaut Problème avec les pièces jointes
    Bonjour à tous,

    je développe un script pour retransférer des messages. J'ai un problème avec la copie des pièces jointes depuis le mail reçu au mail que je vais renvoyer.
    Concrètement, lorsque je copie les attachments, le script se comporte comme s'il ne s'exécutait pas (sans message d'erreur).


    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
     
    Sub Transfert(MyMail As Outlook.MailItem)
    Dim oRecipient As Outlook.Recipient
    Dim NewMail As Outlook.MailItem
    For Each oRecipient In MyMail.Recipients
      If (oRecipient.Address = "<un mail>") Then
         Set NewMail = Application.CreateItem(olMailItem)
         NewMail = MyMail
         Dim HelioAccount As Outlook.Account
         Dim oAccount As Outlook.Account
         For Each oAccount In Application.Session.Accounts
            If (oAccount.DisplayName = "<un nom>") Then
              NewMail.SendUsingAccount = oAccount
              NewMail.Recipients.Add ("<mail cible>")
    '          NewMail.Attachments = MyMail.Attachments ' Avec cette ligne ça ne marche pas
              NewMail.HTMLBody = MyMail.HTMLBody
              NewMail.Send
            End If
         Next
         GoTo Fin 
      End If
    Next
    Fin:
    End Sub
    Sans "NewMail.Attachments = MyMail.Attachments", le message est bien transféré. Avec, non.

    La moindre idée sera la bienvenue,
    merci,
    Karl3i.

  2. #2
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    Salut,
    Essaye avec
    Set NewMail = mymail.reply

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2003
    Messages
    336
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2003
    Messages : 336
    Points : 341
    Points
    341
    Par défaut
    Salut,

    merci, mais même combat avec mymail.reply...

    Karl3i.

  4. #4
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    Salut,
    en fait me suis trompé je voulais écrire : Forward

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2003
    Messages
    336
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2003
    Messages : 336
    Points : 341
    Points
    341
    Par défaut
    Merci, mais toujours même combat.

    Avec :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    NewMail.Attachments = MyMail.Attachments
    le mail ne part pas.

    Sans
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    NewMail.Attachments = MyMail.Attachments
    le mail part, mais sans attachment, que ce soit avec reply ou forward.

  6. #6
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 087
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 087
    Points : 7 168
    Points
    7 168
    Billets dans le blog
    20
    Par défaut
    SAlut,
    En principe avec forward les PJ sont déjà dans le nouveau mail il ne faut pas les ajouter.

Discussions similaires

  1. Imprimer les mails avec leur pièce-jointes
    Par wyzer dans le forum Lotus Notes
    Réponses: 2
    Dernier message: 23/07/2012, 18h43
  2. [ZF 1.11] Récupèrer les pièces jointe avec Zend_Mail_Storage_Imap
    Par amalec78 dans le forum Zend Framework
    Réponses: 1
    Dernier message: 20/07/2011, 10h28
  3. [AC-2007] Duplication d'une base: pb avec les pièces jointes
    Par julius26 dans le forum Modélisation
    Réponses: 0
    Dernier message: 31/03/2011, 16h32
  4. [OL-2007] image en pièce jointe qui s'affiche avec toutes les pièces jointes
    Par Morgann Noémie dans le forum Outlook
    Réponses: 3
    Dernier message: 14/12/2010, 11h32
  5. Réponses: 6
    Dernier message: 17/11/2005, 15h39

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