Autres remplir auto. l'objet de l'email avec nom PJ dans Outlook (et si pas de pj alors aucun objet)

[martine24]

Bonjour,
J'ai saisi le code suivant dans vba => projet =>microsoft outlook objets +> thisoutlooksession afin de remplir auto. l'objet de l'email avec nom de la pièce jointe dans outlook:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim Msg As MailItem
Dim Atmt As Attachment
Dim FileNames As String

If TypeOf Item Is MailItem Then
Set Msg = Item
FileNames = ""

For Each Atmt In Msg.Attachments
FileNames = FileNames & Atmt.FileName & "; "
Next Atmt

If FileNames <> "" Then
Msg.Subject = FileNames
End If
End If
End Sub

je rencontre cependant 2 petits soucis:
1- lorsque j'inclus une pj, dans l'objet il est bien indiqué une fois envoyé (et uniquement une fois envoyé) le nom de la pj mais également par ex : si c'est un doc pdf: nom de la pj.pdf; image001.jpg; si c'est un doc word: nom de la pj.docx; image001.jpg ou si c'est un doc excel: nom de la pj.xls; image001.jpg;
En conséquence comment faire pour avoir uniquement le nom de la pj dans l'objet mais rien d'autre après?
2- lorsque je n'envoi pas de pj, j'ai image001.jpg;
Comment indiquer aucun objet lorsque je ne mets aucun objet?

Une question subsidiaire:
Est il possible de décider sur tel compte de messagerie d'avoir ce process ci-dessus mais pas sur telle autre adresse par ex?

Merci par avance
Pour info j'utilise office pro plus 2021

 

[sylvanu]

Bonjour Martine,
Une simple idée à tester.
Pour le premier point, peut être avec :

FileNames = FileNames & Mid(Atmt.Filename, 1, Len(Atmt.Filename) - 4) & "; "

Pour le second point peut être :

If FileNames <> "" And Filename <> "image001;" Then

 

[martine24]

Bonjour Martine,
Une simple idée à tester.
Pour le premier point, peut être avec :

FileNames = FileNames & Mid(Atmt.Filename, 1, Len(Atmt.Filename) - 4) & "; "

Pour le second point peut être :

If FileNames <> "" And Filename <> "image001;" Then

Bonjour sylvanu et merci pour ton aide.

Pour le 1er point:
je n'ai plu désormais le format de fichier en effet du type .pdf ou .xls par contre toujours nom du fichier; image001
Pour le 2ème point:
j'ai toujours dans l'objet image001;

Merci

 

[TooFatBoy]

Bonjour,

Pour le second point peut être :

If FileNames <> "" And Filename <> "image001;" Then

Je pense que ce ";" est en trop.


Et peut-être faut-il ajouter l 'extension ?

 

[sylvanu]

Bonjour TooFatBoy,

j'ai toujours dans l'objet image001;

J'ai supposé que sans PJ alors Filename était égal à "image001;" avec le ";".
Martine résoudra bien le souci si c'est le cas.

 

[TooFatBoy]

J'ai supposé que sans PJ alors Filename était égal à "image001;" avec le ";".

Moi j'ai supposé que le ";" était le séparateur des noms de fichiers dans la liste des PJ au mail.

Mais tu as peut-être bien raison. 👍

 

[martine24]

Bonjour à tous,
Je ne vous cache pas que je débute dans le vba (c'est le moindre que l'on puisse dire puisque c'est la 1ère fois que je mets un code vba);
Si vous pouviez m'en dire plus sur ce que je dois faire / affichage de image001 ?
Merci

 

[martine24]

Bon, J'ai essayé de retirer le ; après image001 mais je n'ai désormais ni d'objet avec l'envoi d'une pj comme ni d'objet sans envoi de pj.
Merci pour votre aide

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim Msg As MailItem
Dim Atmt As Attachment
Dim FileNames As String

If TypeOf Item Is MailItem Then
Set Msg = Item
FileNames = ""

For Each Atmt In Msg.Attachments
FileNames = FileNames & Mid(Atmt.FileName, 1, Len(Atmt.FileName) - 4) & "; "
Next Atmt

If FileNames <> "" And FileName <> "image001" Then
End If
End If
End Sub

 

[TooFatBoy]

L'idéal est de fournir un classeur anonymisé (donc pas d'adresse mail réelle, entre autre) et représentatif de ton vrai classeur.

Et quand tu postes du code VBA, n’hésite pas à l'encadrer de la balise [ code = vb ] et [ / code ] (sans les espaces bien sûr), ce sera plus lisible. 😉

 

[martine24]

L'idéal est de fournir un classeur anonymisé (donc pas d'adresse mail réelle, entre autre) et représentatif de ton vrai classeur.

Et quand tu postes du code VBA, n’hésite pas à l'encadrer de la balise [ code = vb ] et [ / code ] (sans les espaces bien sûr), ce sera plus lisible. 😉

je suis désolé mais vu ma connaissance dans le code vba je ne comprends pas trop car je n'ai pas indiqué d'adresse mail réelle.
quid?

 

[TooFatBoy]

Je dis juste que ce serait peut-être éventuellement bien de joindre un classeur anonymisé et représentatif. C'est tout. 😉

 

[martine24]

Je dis juste que ce serait peut-être éventuellement bien de joindre un classeur anonymisé et représentatif. C'est tout. 😉

Je suis désolée Toofatboy mais je ne comprends ce que c'est un classeur anonymisé et représentatif dans mon cas?

 

[TooFatBoy]

Je suis désolée Toofatboy mais je ne comprends ce que c'est un classeur anonymisé et représentatif dans mon cas?

Pas grave. 😉

 

[sylvanu]

Re,

If FileNames <> "" And FileName <> "image001" Then
End If

Ne peut pas marcher car Msg.Subject n'est jamais initialisé.
Peut être mettre :

If Filenames <> "" And Filename <> "image001" Then
    Msg.Subject = "Objet du mail " & Filenames
Else
    Msg.Subject = "Objet du mail"
End If

Mais sans fichier test on risque de tourner en rond. 🙂

 

[TooFatBoy]

Un peu au hasard, essaye cette macro (postée ici avec la balise dont je parlais, pour que ce soit plus lisible) :

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim Msg As MailItem
Dim Atmt As Attachment
Dim FileNames As String
   If TypeOf Item Is MailItem Then
       Set Msg = Item
       FileNames = ""

       For Each Atmt In Msg.Attachments
           if Atmt.FileName<>"Image001.jpg" then FileNames = FileNames & Atmt.FileName & "; "
       Next Atmt

       If FileNames <> "" Then
           Msg.Subject = FileNames
       End If
   End If

End Sub