ich wollte mal so allgemein fragen ob es möglich ist E-Mails in CoMate auszulesen und diese dann z.b. in einer Liste anzuzeigen ?
so in etwa:
Code: Alles auswählen
Private Sub CommandButton2_Click()
Dim fMails As Object, mail As Object, txtContent As String, arrContent As Variant, objExcel As Object, wb As Object, sheet As Object, rngStart As Object, rngCurrent As Object, objOL As Object, fErledigt As Object
' Outlook Object erzeugen
Set objOL = CreateObject("Outlook.Application")
'Ordner in Outlook referenzieren
Set fMails = objOL.Session.Stores.Item("e@mail").GetRootFolder.folders.Item("Posteingang")
'Unterordner referenzieren in den die Mails verschoben werden wenn sie bearbeitet wurden
If fMails.Items.Count > 0 Then
'Workbook setzen
Set wb = ActiveWorkbook
'Daten kommen in erstes Worksheet
Set sheet = wb.Worksheets(1)
'Startzelle in Spalte A ermitteln
Set rngStart = sheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Set rngCurrent = rngStart
For Each mail In fMails.Items
'Body extrahieren
txtContent = mail.Body
MsgBox mail.Subject
Next
Else
MsgBox "Keine Mails zum Bearbeiten im Ordner", vbExclamation
End If
Set objOL = Nothing
Set wb = Nothing
Set sheet = Nothing
Set mail = Nothing
End Sub
MfG IceBite
