enregistrer automatiquement les pièces jointes convertir Outlook pour csv

Question

J'ai utilisé le code suivant pour automatiquement enregistrer des fichiers Excel avec un certain texte dans le nom de fichier à un endroit précis qu'ils arrivent dans mon dossier Outlook:

Public Sub saveAttachtoDisk(itm As Outlook.MailItem) 
Dim objAtt As Outlook.Attachment 
Dim saveFolder As String 
saveFolder = "c:\temp\" 
For Each objAtt In itm.Attachments 
      If InStr(objAtt.DisplayName, ".xlsx") Then 
      If InStr(objAtt.DisplayName, "Test") Then 
      objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName 
     End If 
End If 
Next 
End Sub 

Y at-il un façon que je peux également avoir Outlook enregistrer le fichier au format. Csv, ou au moins instruire pour ouvrir Excel et effectuer la tâche automatiquement?

Merci

Answer 1

Vous pouvez automatiser Excel pour faire le travail pour vous. Mais vous devez quand même enregistrer le fichier joint sur le disque. Ensuite, dans Excel, vous pouvez ouvrir le fichier enregistré et l'enregistrer dans le format dont vous avez besoin.

Voir How to automate Microsoft Excel from Visual Basic pour commencer rapidement.