Formule VBA

Le 30/10/2017 à 09:42

Bonjour à tous,

j'aurais besoin de votre aide sur une formule VBA.

Voila j'ai réussi a faire ma macro pour que mon mail parte en appuyant sur le bouton send mais voila lorsque je fais ca, il faut que je selectionne mon fichier pour qu'il puisse partir. ce que je souhaiterai moi, c'est qu'il parte tous seul sans devoir selectionner le fichier a envoyer car je vais le metre sur une plateforme et les gens, pour plus de faciliter ne devrait pas selectionner leurs fichier.

je ne sais pas si je suis Claire?

Voici la formule que j'ai mise:

b envoiClasseur()

Dim Fichier As Variant

Fichier = Application.GetOpenFilename("Tous les fichier(*.*,*.*")

MsgBox Fichier

'ici on demande d'utiliser Outlook comme client de messagerie'

Dim MaMessagerie As Object

Dim MonMessage As Object

Set MaMessagerie = CreateObject("Outlook.application")

Set MonMessage = MaMessagerie.Createitem(0)

'ici nous définissons les champs du mail'

'entre quillemet il faut indiquer les adresses mail'

MonMessage.to = "xxx@xxx.com"

'ici nous commencons la rédaction du mail'

MonMessage.attachments.Add Fichier

'sujet du mail'

MonMessage = "Request form for facilitation"

'corps du mail'

contenu = "Dear team,"

contenu = contenu & Chr(10) & Chr(13)

'les caractères Chr indique un saut de ligne'

contenu = contenu & "Please find attached the excel file for our request of facilitation" & Chr(10) & Chr(13)

contenu = contenu & "Regards" & Chr(10) & Chr(13)

MonMessage.body = contenu

'ici on provoque l'envoi du mail et de sa pièce jointe'

MonMessage.Send

'réinitialisation de la méssagerie'

Set MaMessagerie = Nothing

'Boite de dialogue qui confirme l'envoi du message et de sa pièce jointe'

MsgBox "Your Email has been sent"

End Sub

Le 30/10/2017 à 10:18

Bonjour,

Utilise la balise code pour plus de lisibilité

'ici on provoque l'envoi du mail et de sa pièce jointe'

Je n'ai pas vu où était ta pièce jointe !

Maintenant, si justement tu veux uniquement donner le lien vers la plateforme sur laquelle il est stocké, alors donne juste le lien vers ce fichier. Dans ce cas passe plutôt en html

MonMessage.htmlbody = "Dear team,<br><br>Please find attached the excel file for our request of facilitation<br><br>Regards<BR><a href=""https://assistance.orange.fr/medias/woopic/files/content/download/756371/15808683/version/1/file/Orange_Hapi_30_guide_utilisateur.pdf"" >Lien vers document</a>"

Le 30/10/2017 à 10:25

Justement , en fait je dois selectionner mon fichier via une messagebox pourqu'il s'insere dans mon mail. ce que je souhaiterai c'est que justement le fichier a la limite ce sauvegarde tous seul et qu'il s'insère automatiquement dans mon mail pour ensuite l'envoyer.

Le 30/10/2017 à 10:47

J'ai pensé à cela sinon. ca marche mais lorsque je recois le mail avec la PJ les modifications apportées ne sont pas rpises en compte. est-ce normal?

Sub envoiClasseur()