[OL-2003] Récupérer piece jointe d'un mail lorsqu'il est reçu

[Shikam]

Bonjour,

Je dois réaliser un script VBA qui doit sauvegardé la piece jointe d'un mail lorsqu'il est reçu dans outlook et le sauvegarder dans un répertoire du disque dur. Pour cela, je n'ai pas trouvé de script qui marchait, j'ai essayé de le faire mais rien n'y fait.

Merci d'avance

[Shikam]

Code :

1
2
3
4
5
6
7
8
9
10
11
Set MonNameSpace = Application.GetNamespace("MAPI")
    Set MonDossier = MonNameSpace.GetDefaultFolder(olFolderInbox)
 
 
   last_messages = MonDossier.Items.Count
  Set myItem = MonDossier.Items(last_messages)
 
 
   Set myAttachement = myItem.Attachments(1)
   ' MsgBox myAttachement.Count
   myAttachement.SaveAsFile "C:\Documents and Settings\Bureau"

Il me dit que je n'ai pas les autorisations nécessaires, je ne comprend pas

merci d'avance

[mayekeul]

bonjour,

tu as oublié de mettre le nom du fichier

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Set MonNameSpace = Application.GetNamespace("MAPI")
    Set MonDossier = MonNameSpace.GetDefaultFolder(olFolderInbox)
 
 
   last_messages = MonDossier.Items.Count
  Set myItem = MonDossier.Items(last_messages)
 
 
   Set myAttachement = myItem.Attachments(1)
   ' MsgBox myAttachement.Count
   myAttachement.SaveAsFile "C:\Documents and Settings\Bureau\" & _
     myAttachement.filename

[Shikam]

Bonjour,

j'aimerais également récupéré l'adresse du mail mais avec

Code :

1
2
adresse = myitem.SenderEmailAddress
    MsgBox adresse

Je récupère un truc qui ne correspond pas du tout à une adresse mail

merci d'avance

[mayekeul]

et tu récupere quoi???

[Shikam]

Un truc bizarre avec mon numéro de poste et non des serveurs.

[mayekeul]

oui, mais logiquement outlook doit faire la conversion de lui même.

tu as besoin de l'adresse pour quelle raison?

juste renvoyer un message à l'adresse ou bien???

sinon, tu a la propriété "Sender Name"

[Shikam]

Oui, je vais utiliser cette propriété !

Une autre question sur le nom du fichier que je veux donné,

je veux donner le nom du fichier de base + la date et heure actuelle et remettre son extension mais je n'y arrive pas

[mayekeul]

tu peux faire un tyruc du style

Code :

1
2
3
4
5
6
7
Dim MyAttachement As Outlook.Attachment
Dim bFile As String, Ext As String
 
bFile = Left(MyAttachement.Filename, InStr(MyAttachement.Filename, ".") - 1)
Ext = Replace(MyAttachment.Filename, bFile, "")
bFile = bFile & Format(Now, "dd_mm_yyyy_hh_mm_ss") & Ext
MyAttachement.SaveAsFile bFile

[Shikam]

merci

Une autre question encore !
Pour vérifier que la pièce jointe est d'un type xml par exemplus comment je dois faire dans mon if?

Code :

if myAttachement.Item(i).FileName = *.xml then

[mayekeul]

fait plutot

Code :

1
2
 
if right(myattachement.item(i),3)="xml" then...