如何使用vba

Question

我对vba Outlook 2013不熟悉，我需要FTP特定的电子邮件并在电子邮件中反映特定的行。给你一个看法。我在此电子邮件中有主题为“ SMS已收到：”的电子邮件，第一行中有“发件人”，第二行中有“收件人：”。请试用电子邮件。我需要在文本文件中打印“ To：”，并且需要具有一个文件名格式（“ SMSInquiry”和收到文件的时间-5和收到文件的日期+ 5.txt）。 FTP到主机名：10.32.215.21，目录“ \ rcpi \ IN \ INPUT”用户：用户和密码：密码。希望你能帮我这个忙。提前非常感谢您。

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim arr() As String  
Dim strFPath, strFName1, strFName2, strFName3 As Str    
Dim objMail As Outlook.MailItem
For Each Mailobject In InboxItems
    arr = Split(Mailobject.Body, vbCrLf)
    If Mid(arr(1), 4, 2) = "63" Then
        strFName1 = objMail.Subject
        strFName1 = Replace(strFName1, ":", "")
        strFName1 = "SMSInquiry" & "" & Format(objMail.ReceivedTime, "YYYYMMDD") & _
            Mid(strFName, 31, 2) & (Mid(strFName, 34, 2) - 5) & Mid(strFName, 37, 2) & "" & _
            Mid(strFName, 31, 2) & (Mid(strFName, 34, 2) + 5) & Mid(strFName, 37, 2) & ".txt"
        Print Mid(arr(1), 4, 13)
        strFPath = "\\10.132.142.112\rcpi$\EDW_IN\INPUT" & strFName1
        objMail.SaveAs strFPath, olTXT
    End If
Next
End Sub