Outlookから添付ファイルの名前を変更して保存する

Question

Outlookルールを使用して添付ファイルを保存し、電子メールメッセージ本文にある単語に名前を変更しようとしています。

単語は、コロンの後に3番目の入力行にあります。

私はこのスクリプトを実行するためのルールを設定しています。

Public Sub saveAttachtoNet(itm As Outlook.MailItem) 
Dim objAtt As Outlook.Attachment 
Dim saveFolder As String 
saveFolder = "O:\EUROMKTG\Marketing Analytics Dept\Campaign 
Reporting\Campaign Dashboard\1. Exact Target (Salesforce Mrktg Cloud)" 
For Each objAtt In itm.Attachments 
     objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName 
     Set objAtt = Nothing 
Next 
End Sub 

Answer 1

私はこのようにそれを行うだろう：

Public Sub saveAttachtoNet(itm As Outlook.MailItem) 
    Dim objAtt As Outlook.Attachment 
    Dim saveFolder As String 
    saveFolder = "O:\EUROMKTG\Marketing Analytics Dept" & _ 
        "\Campaign Reporting\Campaign Dashboard" & _ 
        "\1. Exact Target (Salesforce Mrktg Cloud)" 

    Dim JobTxtInMail As String 
    JobTxtInMail = "Exported for - JobID:" 
    Dim StrStart As Integer 
    StrStart = InStr(1, _ 
        itm.Body, _ 
        JobTxtInMail, _ 
        vbTextCompare) + Len(JobTxtInMail) + 1 
    Dim JobNum As String 
    JobNum = Trim(Mid(itm.Body, _ 
        StrStart, _ 
        InStr(StrStart + 1, itm.Body, Chr(13)) - StrStart - 1)) 

    For Each objAtt In itm.Attachments 
     objAtt.SaveAsFile saveFolder & "\" & JobNum & "__" & objAtt.DisplayName 
     Set objAtt = Nothing 
    Next objAtt 
End Sub 

+ 1と- 1のビットをそれぞれStrStartとJobNumに調整する必要がある場合があります。

を目的の出力に合わせて変更してください！

Answer 2

これは、いくつかの例の電子メールを見ずにいますが、あなたは「グラブ」の単語をしたいFor Each objAtt..ループを起動する前に行うことが難しいのです。私はitm.Bodyを探しています。 Splitを使用してChr（13） - キャリッジリターンでこれを分割すると、3つ目の '占有'セグメントを選択するだけです。あなたは、3行目は、有効なファイル名などが含まれていますが、それを行う可能性がありますどのようにテストされていない考え方は以下を参照しようとしていることを自信を必要とする：

Public Sub saveAttachtoNet(itm As Outlook.MailItem) 
    Dim objAtt As Outlook.Attachment 
    Dim saveFolder As String 
    Dim bodystring, sgmnt As String 
    Dim sgmntcounter As Integer 
    saveFolder = "O:\EUROMKTG\Marketing Analytics Dept\Campaign " _ 
    & "Reporting\Campaign Dashboard\1. Exact Target (Salesforce Mrktg Cloud)" 

    bodystring = itm.Body 
    bodysegments = Split(bodystring, Chr(13)) 

    For Each sgmnt In bodysegments 
     If sgmnt <> "" Then sgmntcounter = sgmntcounter + 1 
     If sgmntcounter = 3 Then Exit For 
    Next 

    For Each objAtt In itm.Attachments 
     objAtt.SaveAsFile saveFolder & "\" & sgmnt 
     Set objAtt = Nothing 
    Next 
End Sub