保存と静的な名前

Question

でOutlookの添付ファイルの名前を変更し、私は特定の場所に添付ファイルを保存し、「name.xls」

Public Sub saveAttachtoDisk(itm As Outlook.MailItem) 
Dim objAtt As Outlook.Attachment 
Dim saveFolder As String 
saveFolder = "C:\Users\acheng\Desktop" 
    For Each objAtt In itm.Attachments 
      objAtt.SaveAsFile saveFolder & "\name.xls" 
      Set objAtt = Nothing 
    Next 
End Sub 

ユーザーはでこのスレッドに非常によく似た何かをしたために、それをリネームし、このコードを持っています.CSVファイル：

VBA Outlook - Rename attachments and save to folder

私は、.xlsファイルを除いて、同じことをしました。

私のスクリプトはファイルを保存して名前を変更しますが、ファイルを開こうとすると、「 'name.xls」はファイル拡張子で指定されたものとは異なる形式です。 "

「はい」をクリックすると、すべてのデータが奇妙なシンボルになります。 & '\ name.xls'を '& objAtt.DisplayName'に置き換えると、元の名前でファイルが適切に保存されます。

これが.xlsファイルであることを二重にチェックしました。もっと普遍的なものを考え出すと（.xls .xlsxと.xlsmで同じスクリプトが動作するように）、大きな助けになるでしょうが、大きな優先事項ではありません。

Answer 1

添付ファイルが複数ある場合は、Excelの添付ファイルを他の添付ファイルの1つに置き換える可能性があります。

はあなたがここにいくつかの検証を追加する必要があり

Public Sub saveAttachtoDisk(itm As Outlook.MailItem) 
    Dim objAtt As Outlook.Attachment 
    Dim saveFolder As String 
    Dim i as Integer 

    i=0 
    saveFolder = "C:\Users\acheng\Desktop" 
    For Each objAtt In itm.Attachments 
      i = i + 1 
      objAtt.SaveAsFile saveFolder & "\name" & i & ".xls" 
      Set objAtt = Nothing 
    Next 
End Sub 

を見つけるために、このような何かを試してみてください。すべての添付ファイルがExcelファイルであると仮定すると、大きなリスクになります。