Thema Datum  Von Nutzer Rating
Antwort
Rot Prüfen ob Button gedrückt
 14.01.2020 11:25:00 Martin
NotSolved
14.01.2020 12:20:17 Mase
NotSolved
14.01.2020 12:40:57 Gast4261
NotSolved
14.01.2020 12:53:43 Mase
NotSolved

Ansicht des Beitrags:
Von:
Martin		 Datum:
14.01.2020 11:25:00		 Views:
1132		 Rating:
     
Antwort:
  Ja
Thema:
Prüfen ob Button gedrückt

Liebe Kollegen,

 

ich habe folgenden Code:

 

Public Sub CreateLogCalendar()
       
Dim Ns As Outlook.NameSpace
Dim objApp As Outlook.Application
Dim olAppt As Outlook.AppointmentItem
Dim Item As Object ' works with any outlook item
 
Set Ns = Application.GetNamespace("MAPI")
Set objApp = Application

'On Error Resume Next
Select Case TypeName(objApp.ActiveWindow)
 Case "Explorer"
    Set Item = objApp.ActiveExplorer.Selection.Item(1)
 Case "Inspector"
    Set Item = objApp.ActiveInspector.CurrentItem
End Select

  ' Subfolder named 'Log' under calendar
'Set calFolder = Ns.GetDefaultFolder(olFolderCalendar).Folders("WV")

Set calFolder = Ns.GetDefaultFolder(olFolderCalendar)
Set olAppt = calFolder.Items.Add(olAppointmentItem)


With olAppt
.Subject = Item.Subject
.Attachments.Add Item
    
    .Start = Now + 7
    .End = Now + 7
    .ReminderSet = False
    .BusyStatus = olFree
    .AllDayEvent = True
    '.Save
    .Display
    End With
    


Set objApp = Nothing
Set Ns = Nothing
End Sub

Hier wird ein Ereignis in Outlook erstellt-wie kann ich prüfen, ob der Anwender speichern und schließen gedrückt hat oder ob er abbrechen geklickt hat.

 

Danke

 

Martin

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Prüfen ob Button gedrückt
 14.01.2020 11:25:00 Martin
NotSolved
14.01.2020 12:20:17 Mase
NotSolved
14.01.2020 12:40:57 Gast4261
NotSolved
14.01.2020 12:53:43 Mase
NotSolved