Outlook-Makro zum Bestätigen der Antwort oder aller Antworten beim Senden

1100
phuclv

Ich wähle oft fälschlicherweise die Antwortoption, wenn viele Personen an dem Vortrag beteiligt sind und ich tatsächlich auf alle antworten möchte. Gibt es eine Möglichkeit, dies vor dem Versenden der Mail zu überprüfen?

0

1 Antwort auf die Frage

0
niton

Sie können die Antwort auf ähnliche Weise unterbrechen, wie in dieser Frage beschrieben

Fügen Sie ein neues Modul wie folgt ein und ThisOutlookSessionfügen Sie anschließend den folgenden Code in das Modul ein

Dim WithEvents insp As Outlook.Inspectors Dim WithEvents mailItem As Outlook.MailItem  ' This is called on Outlook startup Private Sub Application_Startup() Set insp = Application.Inspectors End Sub  ' This is called when a new Inspector is created.  Private Sub insp_NewInspector(ByVal Inspector As Inspector) If Inspector.CurrentItem.Class = olMail Then Set mailItem = Inspector.CurrentItem End If End Sub  ' Called when you press Reply Private Sub mailItem_Reply(ByVal Response As Object, Cancel As Boolean) Dim msg As String Dim result As Integer If myMailItem.Recipients.count > 1 Then msg = "Do you really want to reply to one?" result = MsgBox(msg, vbYesNo, "Reply Check") If result = vbNo Then Cancel = True End If End If End Sub