Sendt post: Slette den vedhæftede fil

Ikke - sån umiddelbart hvad jeg ved.
Jeg gør det - at jeg sender mailen til mig selv - uden den vedhæftede fil. Så sletter jeg efterfølgende mailen med filen.
Lidt besværligt - men det virker da :-)

*hehe* man må jo sno sig ...
Men det kunne være rart om en eller anden kendte en automatisk måde at gøre det på :)

Håber jeg da, den metode vil jeg også gerne kende :)

Jeg har lige siddet og fusket med en omgang VBA kode til Outlook. Jeg har fået det til at virke sådan at når man sender en mail afsted, så bliver der lavet et kopi af meddelsen uden attachments og den bliver smidt i sendt Items.
Det jeg så mangler i denne kode er at få den til at slette den gamle mail, men her kunne jeg forestille mig at man lavede en opstarts kode til Outlook, således at den kiggede sent post mappen igennen for at slette de items der var med attachments.

Det er det tætteste på en løsning Outlook kan komme :-)



Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim newMail As MailItem
    Dim itm As MailItem
    Dim fld As MAPIFolder
    Dim index As Attachment
   
    Set itm = Item
    Set fld = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail)
       
    If itm.Attachments.Count <> 0 Then
        Set newMail = itm.Copy
        For Each index In newMail.Attachments
            index.Delete
        Next
        newMail.Save
        newMail.Move fld
    End If
End Sub


VH CK

-lukker