Hallo,
hier wurde das schonmal behandelt
http://www.office-loesung.de/ftopic89667_0_0_asc.php
Leider kann ich kein VBA - könnte mir das jemand in das Script hier
einbauen, so dass die Lesebestätigungen zuerst rausgelöscht bzw. ignoriert
werden, bevor die Mails weiter geleitet werden?
Vielen Dank!!!!
Code: |
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim objMail_In As Outlook.MailItem
Dim objMail_Out As Outlook.MailItem
Dim aryEntryIDs() As String
Dim lngCount As Long
'jedes neue MailItem durchgehen
aryEntryIDs = Split(EntryIDCollection, ",")
For lngCount = 0 To UBound(aryEntryIDs)
Set objMail_In = Application.Session.GetItemFromID(aryEntryIDs(lngCount))
Set objMail_Out = objMail_In.Forward
With objMail_Out
.To = "xxxx@yyyyyyyy.de"
.Subject = "WG: " & objMail_In.Subject
.ReadReceiptRequested = False ' Keine Lesebestätigung
.DeleteAfterSubmit = True ' Keine Kopie speichern
.Send
End With
Next lngCount
End Sub
|
|