Dim oApp As Outlook.Application
Dim oNS As Outlook.NameSpace
Dim oFold
Dim tauoffice
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 tauoffice = oFold.Folders("TauOffice")
Set inbox = oFold.Folders("Posteingang")
Set outbox = oFold.Folders("Postausgang")
Set mail = New MailEingang
 
 
 ' 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 TauOffice ein

Set oMI = office.CreateItem()

Set oMI = office.items.add("NAME/EMAIL")

count_tau = tauoffice.Items.count
 
         ' Weist Attributen Werte zu
        oMI.Subject = email_subject
        'oMI.SenderName = email_sender
        oMI.Body = email_body
        oMI.CC = email_cc
        oMI.Display