Outlook2003 - eMail weiterleiten und Anhänge löschen
Hallo allerseits,
ich habe hier einen Code in Outlook2003. Mit dem kann ich per Button eMails intern weiterleiten.
Funktioniert auch alles sehr gut.
Meine Frage: Die Nachricht landet ja nach dem senden in meinem Ordner "gesendete Nachrichten". Kann man von dieser Nachricht die Anlage entfernen, wenn vorhanden?
Gruß
Zunaras
PS: ich hoffe ich schreib hier im richtigen Bereich.
ich habe hier einen Code in Outlook2003. Mit dem kann ich per Button eMails intern weiterleiten.
Funktioniert auch alles sehr gut.
Meine Frage: Die Nachricht landet ja nach dem senden in meinem Ordner "gesendete Nachrichten". Kann man von dieser Nachricht die Anlage entfernen, wenn vorhanden?
Function GetCurrentItem() As Object
Dim objApp As Outlook.Application
Set objApp = Application
On Error Resume Next
Select Case TypeName(objApp.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = _
objApp.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = _
objApp.ActiveInspector.CurrentItem
Case Else
End Select
End Function
Sub Empfänger1()
Dim objMail As Outlook.MailItem
Set objItem = GetCurrentItem()
Set objMail = objItem.Forward
objMail.To = "empfänger1@intern.de"
objMail.Send
objItem.Delete
Set objItem = Nothing
Set objMail = Nothing
End Sub
Gruß
Zunaras
PS: ich hoffe ich schreib hier im richtigen Bereich.
Please also mark the comments that contributed to the solution of the article
Content-Key: 111717
Url: https://administrator.de/contentid/111717
Printed on: April 23, 2024 at 19:04 o'clock