title image


Smiley Erledigt!
Outlook öffnen, Alt F11, links bei Projekt "dieseOutlookSitzung" auswählen, Application und Item send auswählen

folgenden Code einfügen und speichern:





'------------------------------------------------------------------------------------------

' Diese Routine prueft, ob ein Betreff fuer die zu sendende E-Mail angegeben ist.

'------------------------------------------------------------------------------------------

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Dim bCancelSend As Boolean



' Sub verlassen, wenn keine E-Mail

If TypeName(Item) "MailItem" Then Exit Sub



'Pruefen auf leere Betreffzeile

If Item.Subject = "" Then

bCancelSend = MsgBox("Diese E-Mail enthält keinen Betreff." & vbNewLine & _

"Soll die E-Mail trotzdem gesendet werden?", _

vbYesNo + vbExclamation + vbDefaultButton2, "Kein Betreff angegeben !") = vbNo

End If



'Rueckgabe der Messagebox weitergeben

Cancel = bCancelSend



End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: