Sub check_eingang()
Dim oApp As Outlook.Application
Dim oNS As Outlook.NameSpace
Dim oFold
Dim office
Dim inbox
Dim outbox
Dim count_in As Integer
Dim count_out As Integer
Dim count_tau
Dim mail As MailEingang
Dim oMI As Outlook.MailItem
Dim i As Integer
Dim delta As Integer
Dim email_subject As String
Dim email_body As String
Dim email_sender As String
Dim email_cc As String
Dim email_anhang As String
Dim email_erstellungszeit As String
 
 
 
Set oApp = Outlook.Application
Set oNS = Outlook.GetNamespace(Type:="MAPI")
Set oFold = oNS.Folders("Persönliche Ordner")
Set office = oFold.Folders("OrdnerNeu")
Set inbox = oFold.Folders("Posteingang")
Set outbox = oFold.Folders("Postausgang")
Set mail = New MailEingang
 
count_in = inbox.Items.count
count_out = outbox.Items.count
 
 
If count_in < anzahl_posteingang Then
    delta = count_in 'anzahl_posteingang - count_in
    For i = 0 To delta
 
         ' Liest Attribute in entspr. Variablen ein
        email_sender = inbox.Items(count_in - 1).SenderName
        email_body = inbox.Items(count_in - 1).Body
        email_cc = inbox.Items(count_in - 1).CC
        email_subject = inbox.Items(count_in - 1).Subject
        'email_anhang = inbox.Items(count_in - 1).Attachments(1)
 
         ' Fügt weiteres MailItem in Ordner Office ein
        Set oMI = tauoffice.CreateItem
        count_tau = office.Items.count
 
         ' Weist Attributen Werte zu
        oMI.Subject = email_subject
        'oMI.SenderName = email_sender
        oMI.Body = email_body
        oMI.CC = email_cc
        oMI.Display
        'tauoffice.Items(count_tau).Attachment = email_anhang
'##############################################################################
' ####
    ' Verschieben der neuen Mails nach Office
    Next i
ElseIf count_in > anzahl_posteingang Then
    count_in = anzahl_posteingang
End If
 
 
 
 
If count_out < anzahl_postausgang Then
    delta = anzahl_postausgang - count_out
    For i = 0 To delta
        '######################################################################
        ' ############
        ' Verschieben der neuen Mails nach TauOffice
    Next i
ElseIf count_out > anzahl_postausgang Then
    count_out = anzahl_postausgang
End If
 
End Sub