p
u
b
l
i
c
i
t
é
publicité
  1. #1
    Invité de passage
    Femme Profil pro
    Inscrit en
    juillet 2012
    Messages
    26
    Détails du profil
    Informations personnelles :
    Sexe : Femme

    Informations forums :
    Inscription : juillet 2012
    Messages : 26
    Points : 2
    Points
    2

    Par défaut Envoi de pièce jointe

    Bonjour, j'essaye desperement d'envoyer mon fichier en pièce jointe mais il bloque sur le chemin du fichier : si quelqu'un connait la solution ...

    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
    Sub Envoyer_Mail_Outlook()
    Dim ObjOutlook As New Outlook.Application
    Dim oBjMail
    Dim chemin as string
    Dim chemin as nom
       'ici on cré le chemin complet de ton fichier qui sera créé plus bas
    chemin = ActiveWorkbook.Path & "\" & nom
    ActiveWorkbook.SaveAs chemin
    
        Set ObjOutlook = New Outlook.Application
        Set oBjMail = ObjOutlook.CreateItem(olMailItem)
    
    ThisWorkbook.ActiveSheet.Copy
     'Enregistre le fichier à envoyer davec le nom que l'on a créé plus haut
    
    'Ferme le fichier
    ActiveWorkbook.Close
         With oBjMail
            .To = "mon mail" ' le destinataire
           .Subject = "mail pour " & nom      ' l'objet du mail
           .Body = "Bonjour,Merci de bien vouloir lancer la demande d'extension  """
    'le corps du mail ..son contenu
           .Attachments.Add (chemin) 
           .Display (True) '   Ici on met True pour vérifier l'email avant envoie
           .Send
        End With
        ObjOutlook.Quit
        Set oBjMail = Nothing
        Set ObjOutlook = Nothing
    
    End Sub

  2. #2
    Rédacteur/Modérateur


    Avatar de Heureux-oli
    Homme Profil pro
    Contrôleur d'industrie
    Inscrit en
    février 2006
    Messages
    20 495
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Belgique

    Informations professionnelles :
    Activité : Contrôleur d'industrie
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : février 2006
    Messages : 20 495
    Points : 40 316
    Points
    40 316

    Par défaut

    Salut,

    Je dirais logique.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    Dim chemin as string
    Dim chemin as nom
    L'argument doit être un String et dans ton cas c'est un type défini par l'utilisateur.
    J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
    Débutez en VBA

    Mes articles


    Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !

Discussions similaires

  1. [JavaMail] Envoi de pièce jointe
    Par log2n dans le forum APIs
    Réponses: 6
    Dernier message: 08/11/2013, 09h34
  2. envoi fichier pièce jointe avec Jmail
    Par nickg dans le forum ASP
    Réponses: 2
    Dernier message: 04/07/2006, 09h38
  3. Réponses: 7
    Dernier message: 30/06/2006, 17h12
  4. [axis - SOAP] Envoi de pièces jointes
    Par getupa dans le forum Web Services
    Réponses: 1
    Dernier message: 17/01/2006, 12h04
  5. problème avec l'envoi de pièces jointes
    Par mouna201 dans le forum Autres Logiciels
    Réponses: 5
    Dernier message: 11/01/2006, 13h20

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