Tintin5471
XLDnaute Nouveau
Salut à tous
J'ai besoin de votre aide sur l'élaboration d'un document permettant de capitaliser et de diffuser une réclamation client.
Chronologie;
1) Je reçois un mail avec un fichier attaché
2) Je déttache le fichier joint et je le stock sur mon PC
3) Je saisie une partie des données dans un fichier Excel (afin de les capitaliser)
4) Je lance la macro ci-dessous qui permet préparer un mail à envoyer au responsable de l'action
5) J'attache le fichier stocké sur mon PC et j'envois le mail
Mon objectif serait d'éviter de détacher puis de rattacher le fichier joint.
Est ce que vous connaissez une combine pour faire un transfert de message plutôt qu'une création de mail?
Ci dessous le boût de programme que j'utilise.
Merci d'avance.
Subj = "Réclamation client " & Cells(7, 2).Value
EmailAddr = Cells(19, 2).Value
Msg = "Bonjour," & "%0A" & "%0A"
Msg = Msg & "Nous avons reçu une réclamation du client " & Cells(7, 2).Value & " concernant notre commande " & Cells(21, 2).Value & "%0A"
Msg = Msg & "Cette réclamation concerne le matériel suivant:" & "%0A"
Msg = Msg & " " & Cells(25, 2).Value & " " & Cells(23, 2).Value & "%0A" & "%0A"
Msg = Msg & "La solution envisagée pour résoudre ce problème est: " & Cells(17, 2).Value & "%0A" & "%0A"
Msg = Msg & "Remarques : " & Cells(27, 2).Value
HLink = "mailto:" & EmailAddr & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
ActiveWorkbook.FollowHyperlink HLink
J'ai besoin de votre aide sur l'élaboration d'un document permettant de capitaliser et de diffuser une réclamation client.
Chronologie;
1) Je reçois un mail avec un fichier attaché
2) Je déttache le fichier joint et je le stock sur mon PC
3) Je saisie une partie des données dans un fichier Excel (afin de les capitaliser)
4) Je lance la macro ci-dessous qui permet préparer un mail à envoyer au responsable de l'action
5) J'attache le fichier stocké sur mon PC et j'envois le mail
Mon objectif serait d'éviter de détacher puis de rattacher le fichier joint.
Est ce que vous connaissez une combine pour faire un transfert de message plutôt qu'une création de mail?
Ci dessous le boût de programme que j'utilise.
Merci d'avance.
Subj = "Réclamation client " & Cells(7, 2).Value
EmailAddr = Cells(19, 2).Value
Msg = "Bonjour," & "%0A" & "%0A"
Msg = Msg & "Nous avons reçu une réclamation du client " & Cells(7, 2).Value & " concernant notre commande " & Cells(21, 2).Value & "%0A"
Msg = Msg & "Cette réclamation concerne le matériel suivant:" & "%0A"
Msg = Msg & " " & Cells(25, 2).Value & " " & Cells(23, 2).Value & "%0A" & "%0A"
Msg = Msg & "La solution envisagée pour résoudre ce problème est: " & Cells(17, 2).Value & "%0A" & "%0A"
Msg = Msg & "Remarques : " & Cells(27, 2).Value
HLink = "mailto:" & EmailAddr & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
ActiveWorkbook.FollowHyperlink HLink