Append Inhalt .msg-Anlage zum Nachrichtentext

Ich habe ein Skript zum öffnen von Anhängen und fügen Sie diese in den Nachrichtentext. Ich habe es die Arbeit für text-Dokumente, aber ich brauche es für die Arbeit .msg-Anhänge zu.

Im moment ist es einfach nicht das Objekt Lesen. Kann mir jemand helfen?

Sub RunAScriptRuleRoutine(MyMail As MailItem)

Dim strID As String
Dim olNS As Outlook.NameSpace
Dim olMail As Outlook.MailItem
Dim olMailAT As Outlook.MailItem

strID = MyMail.EntryID
Set olNS = Application.GetNamespace("MAPI")
Set olMail = olNS.GetItemFromID(strID)

If olMail.Subject = "lala" Then

    If olMail.Attachments.Count > 0 Then

        Dim strLine As String
        Dim mailLine As String
        Dim strLines As String

        For i = 1 To olMail.Attachments.Count

            strFileName = "C:\emailTemp\" + olMail.Attachments.Item(i).FileName

            If InStr(strFileName, "msg") Then

                olMail.Attachments.Item(i).SaveAsFile strFileName
                strLines = strLines + "//Start of " + strFileName + " //" + vbCrLf

                Open strFileName For Input As #1
                    Do While Not EOF(1)
                    Line Input #1, strLine
                        mailLine = mailLine + strLine
                    Loop
                Close #1

                olMailAT = mailLine
                strLine = objMailAT.Body
                strLines = strLines + "heres the .msg" + vbCrLf
                strLines = strLines + "//End of " + strFileName + " //" + vbCrLf

            Else

                olMail.Attachments.Item(i).SaveAsFile strFileName

                strLines = strLines + "//Start of " + strFileName + " //" + vbCrLf
                Open strFileName For Input As #1
                    Do While Not EOF(1)
                    Line Input #1, strLine
                        strLines = strLines + vbCrLf + strLine
                    Loop
                Close #1
                strLines = strLines + "//End of " + strFileName + " //" + vbCrLf

            End If

        Next

        'save to email body and save email
        olMail.Body = strLines
        olMail.Save

    End If

End If

Set olMail = Nothing
Set olNS = Nothing

End Sub
InformationsquelleAutor Josh | 2010-06-22
  1. 1

    Sollten Sie schauen, in mit Outlook Redemption.

    Auch, sollten Sie sich diese Dokumentation für format specificaion
    http://msdn.microsoft.com/en-us/library/cc463912.aspx

    InformationsquelleAutor VoodooChild
  2. 1

    Lesen die Inhalte ein .msg-Datei, die ich verwendet habe folgenden Ansatz.

    1. Verwenden Sie die Methode CreateItemFromTemplate für die msg-Datei mit dem Outlook-Objekt

    2. Verwenden Sie das Outlook-Objekt zum speichern der Daten in eine .txt-Datei

    3. Einmal die .txt-Datei erstellt wird, Lesen Sie es, und verwenden Sie die Daten wie gewünscht

    Dim OL : Set OL=CreateObject("Outlook.Application")
Dim Msg ':Set Msg= CreateObject("Outlook.MailItem")
Set Msg = OL.CreateItemFromTemplate("C:\test.msg")
'MsgBox Msg.Subject
Msg.saveAs "C:\test.txt", olDoc
'The above statement will save the contents of .msg 
'file into the designate .txt file
Set OL = Nothing
Set Msg = Nothing

    Einmal die .txt-Datei erstellt werden, verwenden Sie es für Ihre Berechnungen.

    InformationsquelleAutor Debapriya Chatterjee
  4. 0
        Function GetCurrentItem() As Object
     Dim objApp As Outlook.Application
     Set objApp = Application
     On Error Resume Next
     Select Case TypeName(objApp.ActiveWindow)
     Case "Explorer"
     Set GetCurrentItem = _
     objApp.ActiveExplorer.Selection.Item(1)
     Case "Inspector"
     Set GetCurrentItem = _
     objApp.ActiveInspector.CurrentItem
     Case Else
     End Select
    End Function
 'This is how you read the attachment using your path "strFileName"
   Set OL = New Outlook.Application
   Set myMessage = OL.CreateItemFromTemplate(strFileName)
   myMessage.Display
   Set msg2 = GetCurrentItem()
   MsgBox(msg2.Body)
   mg2.Close 1
    InformationsquelleAutor tiltedtimmy
Schreibe einen Kommentar