Outlook auslesen

28/04/2009 - 10:27 von Andi | Report spam
Hallo zusammen,
kann mir jemand helfen, dieser Code list den Posteingan aus und schreibt pro
Email eine Zeile in c:\test.txt mit senddatum, Betreff und Absender. Ich
habe bis jetzt nicht rausgefunden wie ich jetzt noch den Emailtext auslesen
kann. Wie mus ich diese Zeile ànder dass der EmailText ausgelesen wird.
Danke für die Hilfe.

Gruss an Alle
Andi

code
Dim oApp As New Microsoft.Office.Interop.Outlook.Application()
Dim oNs As Microsoft.Office.Interop.Outlook.NameSpace =
oApp.GetNamespace("MAPI")
Dim oFolder As Microsoft.Office.Interop.Outlook.MAPIFolder =
oNs.GetDefaultFolde
_(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderInbox)



'Dim strSubject As String = oFolder.Items.Item(1).Subject
Dim strSubject As String '= oFolder.Items.Item(1).Subject
Dim strSender As String '= oFolder.Items.Item(1).SenderName
Dim strSendDatum As String '= oFolder.Items.Item(1).SentOn
'Dim strSendText As String = oFolder.Items.Item(1).Read

Try

Dim i As Integer
For i = 1 To 1000

strSubject = oFolder.Items.Item(i).Subject
strSender = oFolder.Items.Item(i).SenderName
strSendDatum = oFolder.Items.Item(i).SentOn

Text_Save(strSendDatum & "; " & strSubject & "; " &
strSender, "c:\test.txt", i)
'SaveLogFile("c:\test.txt", strSendDatum & "; " & strSubject
& "; " & strSender)

Next

Catch ex As System.Exception

End Try
code
ende
 

Lesen sie die antworten

#1 Martin H.
28/04/2009 - 22:02 | Warnen spam
Hallo Andi,

das MailItem (das ist das, was Du ja schon verwendest), ist unter
http://msdn.microsoft.com/en-us/lib...11%29.aspx
beschrieben. Dort findest Du z.B. auch das "Body"-Property sowie das
"HTMLBody"-Property.

Beste Grüße,

Martin

On 28.04.2009 10:27, Andi wrote:
Hallo zusammen,
kann mir jemand helfen, dieser Code list den Posteingan aus und schreibt pro
Email eine Zeile in c:\test.txt mit senddatum, Betreff und Absender. Ich
habe bis jetzt nicht rausgefunden wie ich jetzt noch den Emailtext auslesen
kann. Wie mus ich diese Zeile ànder dass der EmailText ausgelesen wird.
Danke für die Hilfe.

Gruss an Alle
Andi

code
Dim oApp As New Microsoft.Office.Interop.Outlook.Application()
Dim oNs As Microsoft.Office.Interop.Outlook.NameSpace > oApp.GetNamespace("MAPI")
Dim oFolder As Microsoft.Office.Interop.Outlook.MAPIFolder > oNs.GetDefaultFolde
_(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderInbox)



'Dim strSubject As String = oFolder.Items.Item(1).Subject
Dim strSubject As String '= oFolder.Items.Item(1).Subject
Dim strSender As String '= oFolder.Items.Item(1).SenderName
Dim strSendDatum As String '= oFolder.Items.Item(1).SentOn
'Dim strSendText As String = oFolder.Items.Item(1).Read

Try

Dim i As Integer
For i = 1 To 1000

strSubject = oFolder.Items.Item(i).Subject
strSender = oFolder.Items.Item(i).SenderName
strSendDatum = oFolder.Items.Item(i).SentOn

Text_Save(strSendDatum& "; "& strSubject& "; "&
strSender, "c:\test.txt", i)
'SaveLogFile("c:\test.txt", strSendDatum& "; "& strSubject
& "; "& strSender)

Next

Catch ex As System.Exception

End Try
code
ende


Ähnliche fragen