Makro zur Nachverfolgung eines Kontakts in OL 2010 (VBA)

Witzker, Samstag, 26.10.2019, 06:35 (vor 20 Tagen)

Bitte kann mir jemand helfen ein Makro in OL 2010 zu erstellen
Wenn ich den Kontakt öffne möchte ich den Prozess:


Nachtverfolgung mit dem Makro automatisieren

Hier Soll
Unter Kennzeichnung - "ANRUFEN" stehen
Erinnerung - angehakt sein
Das Datum - des nächste Tages (morgen) eingestellt sein
Als Zeit - 9:00 stehen

Wie geht sowas?

ist das der richtige Ansatz?

Public Sub Morgen09()
Dim objMsg As Object
' GetCurrent Item function is athttp://slipstick.me/e8mio
Set objMsg = GetCurrentItem()
With objMsg
' due this week flag
    .MarkAsTask olMarkNoDate
    .MarkAsTask olMarkComplete
' sets a specific due date
    '.TaskDueDate = Now + 3
    '.FlagRequest = "Nachverfolgung"
    .ReminderSet = True
    .ReminderTime = Date + 1 + #9:00:00 AM#
    .Save
End With
 
Set objMsg = Nothing
End Sub

Funktion:

Function GetCurrentItem() As Object
    Dim objApp As Outlook.Application
 
    Set objApp = Application
    On Error Resume Next
    Select Case TypeName(objApp.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
    End Select
 
    Set objApp = Nothing
End Function

Hoffe auf Hilfe
Oder
Könnt Ihr mir bitte ein spezielles Forum dafür nennen?


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum