Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Outlook2003 - eMail weiterleiten und Anhänge löschen

Frage Entwicklung VB for Applications

Mitglied: Zunaras

Zunaras (Level 1) - Jetzt verbinden

18.03.2009, aktualisiert 11:08 Uhr, 3625 Aufrufe

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?

01.
Function GetCurrentItem() As Object 
02.
Dim objApp As Outlook.Application 
03.
Set objApp = Application 
04.
On Error Resume Next 
05.
Select Case TypeName(objApp.ActiveWindow) 
06.
Case "Explorer" 
07.
Set GetCurrentItem = _ 
08.
objApp.ActiveExplorer.Selection.Item(1) 
09.
Case "Inspector" 
10.
Set GetCurrentItem = _ 
11.
objApp.ActiveInspector.CurrentItem 
12.
Case Else 
13.
End Select 
14.
End Function 
15.
 
16.
Sub Empfänger1() 
17.
 
18.
Dim objMail As Outlook.MailItem 
19.
 
20.
Set objItem = GetCurrentItem() 
21.
Set objMail = objItem.Forward 
22.
objMail.To = "empfänger1@intern.de" 
23.
objMail.Send 
24.
objItem.Delete 
25.
Set objItem = Nothing 
26.
Set objMail = Nothing 
27.
 
28.
End Sub
Gruß
Zunaras

PS: ich hoffe ich schreib hier im richtigen Bereich.
Ähnliche Inhalte
Outlook & Mail
gelöst Bestimmte Anhänge bei E-mails mit Exchange 2010 löschen (5)

Frage von jojo0411 zum Thema Outlook & Mail ...

Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

Exchange Server
Email in Exchange an 2ten Empfänger senden (9)

Frage von MultiStorm zum Thema Exchange Server ...

Heiß diskutierte Inhalte
Verschlüsselung & Zertifikate
gelöst Festplattenverschlüsselung im Ausland (13)

Frage von Nicolaas zum Thema Verschlüsselung & Zertifikate ...

Festplatten, SSD, Raid
gelöst Fehlerhafte Blöcke im RAID 10 (12)

Frage von Kojak-LE zum Thema Festplatten, SSD, Raid ...

Batch & Shell
HTML in Batch und Powershell (12)

Frage von michi-ffm zum Thema Batch & Shell ...

Windows Server
gelöst Microsoft-Lizenz CALs und passendes Server-Betriebssystem (12)

Frage von planetIT2016 zum Thema Windows Server ...