Soutenez-nous
Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 2 sur 2
  1. #1
    Invité de passage
    Femme Profil pro sarah
    Inscrit en
    juillet 2012
    Messages
    25
    Détails du profil
    Informations personnelles :
    Nom : Femme sarah

    Informations forums :
    Inscription : juillet 2012
    Messages : 25
    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 :
    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 Olivier Lebeau
    Contrôleur d'industrie
    Inscrit en
    février 2006
    Messages
    19 615
    Détails du profil
    Informations personnelles :
    Nom : Homme Olivier Lebeau
    Âge : 49
    Localisation : Belgique

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

    Informations forums :
    Inscription : février 2006
    Messages : 19 615
    Points : 36 007
    Points
    36 007

    Par défaut

    Salut,

    Je dirais logique.

    Code :
    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 !

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •