Discussion :

[ptifanou]

Bonjour,

voila je cherche à automatiser une tache dans outlook.

A la réception d'un mail contenant un certain mot dans l'objet, je voudrais qu'une macro enregistre la pièce-jointe qui est en .rtf, la transposer en .txt et supprimer le fichier .rtf dans le dossier.

j'utilise une régle pour identifier les mails et cette macro, mais elle ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'Set attachs = Item.Attachments
    'For Each attach In attachs
    'Dim LString As String 'en plus
    'Dim LArray() As String 'en plus
 
    'LString = attach.FileName 'en plus
    'LArray = Split(LString, ".") 'en plus
 
    'FILE = attach.FileName
    'attach.SaveAsFile "C:\Users\MVVD2765\Desktop\EXCEL 2\ATTACHEMENTS\PREVISIONEL\" & FILE
    'FileCopy "C:\Users\MVVD2765\Desktop\EXCEL 2\ATTACHEMENTS\PREVISIONEL\" & FILE, "C:\Users\MVVD2765\Desktop\EXCEL 2\ATTACHEMENTS\PREVISIONEL\" & LArray(0) & ".txt" 'en plus
    'Kill ("C:\Users\MVVD2765\Desktop\EXCEL 2\ATTACHEMENTS\PREVISIONEL\" & FILE) 'en plus

auriez vous une idée de ce qui cloche?
cdlt,

[Oliv-]

bonsoir,
en fait quand tu enregistres la pj c'est à ce moment que tu dois changer l'extension, car c'est bien juste un changement d'extension que tu veux par réellement une conversion

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
FILE = attach.Filename
FILE = Replace(FILE, ".rtf", ".txt", , , vbTextCompare)
attach.SaveAsFile "C:\Users\MVVD2765\Desktop\EXCEL 2\ATTACHEMENTS\PREVISIONEL\" & FILE

[ptifanou]

Merci beaucoup oliv