SAM | |
Legen Sie fest, mit welcher "Identität" Ihre Emails beim Empfänger erscheinen sollen. Mit SAM bestimmen Sie den Absender und Speicherort für Emails anhand von Regeln. |
Wenn eine Email im Postausgang zum Senden bereitliegt, dann wird die Email kursiv dargestellt. In diesem Zustand darf kein Zugriff mehr auf die Email stattfinden, sonst wird der Sendevorgang abgebrochen. Das ist dann daran zu erkennen, dass die Email nicht mehr kursiv dargestellt wird. Hier hilft dann nur noch, die Email zu öffnen und erneut auf Senden zu klicken.
Viele Addins oder Makros greifen zumindest auf die erste Nachricht in einem Ordner zu, wenn Sie zu diesem Ordner wechseln. Wenn Sie also bei einer Email auf Senden klicken und dann in den Postausgang wechseln, hat das häufig zur Folge, dass die Email eben nicht versendet wird. In solchen Fällen hilft eigentlich nur Selbstdisziplin: Werfen Sie keinen Blick in den Postausgang, solange sich Emails darin befinden (es sei denn, Sie wollen die Nachricht überarbeiten).
Dieses Makro unterstützt Sie dabei:
Private WithEvents m_Explorer As Outlook.Explorer Private Sub Application_Startup() Set m_Explorer = Application.ActiveExplorer End Sub Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) If FolderIsOutbox(Application.ActiveExplorer.CurrentFolder) Then Set Application.ActiveExplorer.CurrentFolder = Session.GetDefaultFolder(olFolderInbox) End If End Sub Private Sub m_Explorer_BeforeFolderSwitch(ByVal NewFolder As Object, Cancel As Boolean) If FolderIsOutbox(NewFolder) Then If NewFolder.Items.Count Then If MsgBox("Der Postausgang enthält Nachrichten. Wenn Sie den Ordner anzeigen, wird der Sendevorgang abgebrochen." _ & vbCrLf & vbCrLf & "Trotzdem Ordner anzeigen?", vbYesNo Or vbQuestion Or vbDefaultButton2) <> vbYes Then Cancel = True End If End If End If End Sub Private Function FolderIsOutbox(F As Outlook.MAPIFolder) As Boolean On Error Resume Next Dim Outbox As Outlook.MAPIFolder Dim e1$, e2$ If F Is Nothing Then Exit Function e1 = LCase$(F.EntryID) Set Outbox = Session.GetDefaultFolder(olFolderOutbox) e2 = LCase$(Outbox.EntryID) If Len(e1) > 0 And Len(e2) > 0 Then FolderIsOutbox = (e1 = e2) End If End Function
Reporter | |
Mit dem Reporter erstellen Sie Berichte für Ihre Outlook Daten. Mit wenigen Klicks werden Werte aus Aufgaben, Terminen und dem Journal summiert. |