Tvungen angivelse af emne i emails

Er der virkelig ingen der har haft samme problem?

Jeg kan ikke huske om du kan gøre det vha. exchange system manager, men du kan ved hjælp af Outlook VBA gøre det(alternativt en Com-Addin). Jeg prøver at kigge på det senere idag :-)

Jeg fandt lige ud af det ;-) Brug vba: og indsæt følgende kode i outlookSession kode modulet.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim itm As MailItem
    Set itm = Item
   
    If itm.Subject = "" Then
        MsgBox "Du skal angive et subject!"
        Cancel = True
    End If
   
    Set itm = Nothing
End Sub


VH CK

Tak for forslaget, men det jeg søger er en løsning hvor jeg kan afvise andres emails til mig, hvis de sender til mig uden at angive et subject.

Jeg har bare gennemterpet nettet uden at kunne finde nogen som helst der har skrevet noget som dette før :-/

Det er faktisk forholdsvis simpelt - du skal blot opsætte en regel der tjekker på om dit subject er "" dvs. tomt. Så kan du gøre hvad du nu synes der skal gøres med denm derefter :-)

VH CK

Det kan ikke lade sig gøre i min Outlook 2000. Man kan simpelthen ikke få lov til at lave en regel hvor subject = "".

Nej du har fuldstændigt ret, jeg var vist lige lidt for hurtig :-)

Hvis det skal testen på din maskine for modtagne mail, og de bare skal slettes så kan du bruge følgende kode i ThisOutookSession kode modulet:

Private Sub Application_NewMail()
  Dim olFld As Outlook.MAPIFolder
  Dim oMail As Outlook.MailItem

  Set olFld = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    'Modtaget skal være received, hvis det er en engelsk version af Outlook
  olFld.Items.Sort "modtaget", False

  Set oMail = olFld.Items.GetFirst

  If oMail.Subject = "" Then
      oMail.Delete
  End If

  Set oMail = Nothing
  Set oFld = Nothing
End Sub

Problemet er at den skal sende et bestemt reply tilbage til den der står som afsender på den modtagne email. Afsenderen skal informeres om at mailen ikke vil blive læst, da den ikke indeholdt et subject.

Hermed en redigeret udgave.

Private Sub Application_NewMail()
  Dim olFld As Outlook.MAPIFolder
  Dim oMail As Outlook.mailItem
  Dim replyMail As Outlook.mailItem

  Set olFld = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    'Modtaget skal være received, hvis det er en engelsk version af Outlook
  olFld.Items.Sort "modtaget", False

  Set oMail = olFld.Items.GetFirst

  If oMail.Subject = "" Then
      'oMail.Delete
      Set replyMail = oMail.Reply
      replyMail.Subject = "Automatisk svar"
      replyMail.Body = "Din mail vil ikke blive læst, da den ingen subject indeholder!"
      replyMail.Send
  End If
   
  Set oMail = Nothing
  Set oFld = Nothing
End Sub

VH CK