- Mitglied seit
- 12.08.2002
- Beiträge
- 12.824
- Reaktionen
- 39
Hey,
folgender Sachverhalt:
ein Programm verschickt Termine an eine Mail-Adresse, wo diese automatisch als Termine gespeichert werden. Diese Termine sind aber für eine andere Person bestimmt, deswegen sollen diese Termine automatisch weitergeleitet werden (andere Adresse ins Outlook eintragen steht leider nicht zur Verfügung).
Ob nun als Termin oder als Mail ist erstmal egal, eine funktionierende Weiterleitung ansich würde mir schon helfen. Folgendes fand ich über Google, aber die Tipps haben mir nicht wirklich weiter geholfen
aber das klappt noch nicht. Jemand ne Idee?
folgender Sachverhalt:
ein Programm verschickt Termine an eine Mail-Adresse, wo diese automatisch als Termine gespeichert werden. Diese Termine sind aber für eine andere Person bestimmt, deswegen sollen diese Termine automatisch weitergeleitet werden (andere Adresse ins Outlook eintragen steht leider nicht zur Verfügung).
Ob nun als Termin oder als Mail ist erstmal egal, eine funktionierende Weiterleitung ansich würde mir schon helfen. Folgendes fand ich über Google, aber die Tipps haben mir nicht wirklich weiter geholfen
Option Explicit
Private objNS As Outlook.NameSpace
Private WithEvents objNewMailItems As Outlook.Items
Private Sub Application_Startup()
Dim objMyInbox As Outlook.MAPIFolder
Set objNS = Application.GetNamespace("MAPI")
Set objMyInbox = objNS.GetDefaultFolder(olFolderInbox)
Set objNewMailItems = objMyInbox.Items
Set objMyInbox = Nothing
End Sub
Private Sub objNewMailItems_ItemAdd(ByVal Item As Object)
On Error Resume Next
Dim fwdItem As Outlook.MeetingItem
If Item.Class = OlObjectClass.olMeetingCancellation Or _
Item.Class = OlObjectClass.olMeetingRequest Or _
Item.Class = OlObjectClass.olMeetingResponseNegative Or _
Item.Class = OlObjectClass.olMeetingResponsePositive Or _
Item.Class = OlObjectClass.olMeetingResponseTentative Or _
Item.MessageClass = "IPM.Schedule.Meeting.Cancelled" Or _
Item.MessageClass = "IPM.Schedule.Meeting.Resp.Pos" Or _
Item.MessageClass = "IPM.Schedule.Meeting.Resp.Neg" Or _
Item.MessageClass = "IPM.Schedule.Meeting.Resp.Tent" Then
MsgBox "Forwarding meeting..."
Set fwdItem = Item.Forward
fwdItem.Recipients.Add "Test@testmail.com"
fwdItem.Send
End If
End Sub
Private objNS As Outlook.NameSpace
Private WithEvents objNewMailItems As Outlook.Items
Private Sub Application_Startup()
Dim objMyInbox As Outlook.MAPIFolder
Set objNS = Application.GetNamespace("MAPI")
Set objMyInbox = objNS.GetDefaultFolder(olFolderInbox)
Set objNewMailItems = objMyInbox.Items
Set objMyInbox = Nothing
End Sub
Private Sub objNewMailItems_ItemAdd(ByVal Item As Object)
On Error Resume Next
Dim fwdItem As Outlook.MeetingItem
If Item.Class = OlObjectClass.olMeetingCancellation Or _
Item.Class = OlObjectClass.olMeetingRequest Or _
Item.Class = OlObjectClass.olMeetingResponseNegative Or _
Item.Class = OlObjectClass.olMeetingResponsePositive Or _
Item.Class = OlObjectClass.olMeetingResponseTentative Or _
Item.MessageClass = "IPM.Schedule.Meeting.Cancelled" Or _
Item.MessageClass = "IPM.Schedule.Meeting.Resp.Pos" Or _
Item.MessageClass = "IPM.Schedule.Meeting.Resp.Neg" Or _
Item.MessageClass = "IPM.Schedule.Meeting.Resp.Tent" Then
MsgBox "Forwarding meeting..."
Set fwdItem = Item.Forward
fwdItem.Recipients.Add "Test@testmail.com"
fwdItem.Send
End If
End Sub
aber das klappt noch nicht. Jemand ne Idee?
