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

Outlook - eMails erneut senden statt weiterleiten, VBA-Code anpassen

Frage Microsoft Outlook & Mail

Mitglied: Zunaras

Zunaras (Level 1) - Jetzt verbinden

20.11.2009, aktualisiert 07:38 Uhr, 6246 Aufrufe, 2 Kommentare

Hallo,

ich habe hier Outlook 2003 und bekomme diverse eMails die ich dann weiterleiten muss.
Dafür habe ich einen VBA-Code, der die Mail an eine besteimmte Person weiterleitet und aus meinem Posteingang löscht.
In der Symbolleiste habe ich mir für jeden Mitarbeiter einen Knopf angelegt. Das geht so recht angenehm und fix.

Nun steht beim Empfänger die Adresse des Absenders, also meine, drin.
Es gibt die Möglichkeit, das man die Mail öffnet, Menü Aktionen und 'Diese Nachricht erneut senden...' auswählt. Meldung mit OK bestätigen und den neuen Empfänger eingeben.

sowas möchte ich gerne in meinen Code übernehmen. Also nicht weiterleiten sondern Nachricht erneut senden. Geht das?

Grüße
Zunaras

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.
Sub user1() 
16.
 
17.
Dim objMail As Outlook.MailItem 
18.
 
19.
Set objItem = GetCurrentItem() 
20.
Set objMail = objItem.Forward 
21.
objMail.To = "user1@intern.de" 
22.
objMail.Send 
23.
objItem.Delete 
24.
Set objItem = Nothing 
25.
Set objMail = Nothing 
26.
 
27.
End Sub 
28.
Sub user2() 
29.
 
30.
Dim objMail As Outlook.MailItem 
31.
 
32.
Set objItem = GetCurrentItem() 
33.
Set objMail = objItem.Forward 
34.
objMail.To = "user2@intern.de" 
35.
objMail.Send 
36.
objItem.Delete 
37.
Set objItem = Nothing 
38.
Set objMail = Nothing 
39.
 
40.
End Sub
usw.
Mitglied: geTuemII
20.11.2009 um 08:59 Uhr
Hallo Zunaras,

hast du mal versucht, eine fremde Mail per Erneut senden zu verschicken? Normalerweise sollte der Server diese Mail ablehnen, da du nicht berechtigt bist, mite der fremden Adresse Mail zu verschicken. Dein Wunsch scheitert also schon an dieser Stelle.

geTuemII
Bitte warten ..
Mitglied: Zunaras
20.11.2009 um 09:10 Uhr
Hallo,

das hab ich probiert, hat funktioniert.
welcher server könnte das ablehnen? Exchange haben wir nicht. Und die Mails werden nur intern weitergeleitet.

Gruß
Zunaras
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Emails weiterleiten mit Regel oder makro (11)

Frage von Skoechling zum Thema VB for Applications ...

Exchange Server
gelöst Bestehende eMails autoamatisch weiterleiten (22)

Frage von metal-shot zum Thema Exchange Server ...

VB for Applications
gelöst VBA Code Änderung Access 2010 (6)

Frage von Dr.Cornwallis zum Thema VB for Applications ...

Datenbanken
gelöst Access Report per Email versenden, hat jemand zufällig einen Code dafür(VBA) (7)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Neue Wissensbeiträge
Entwicklung

Exploit Development

Anleitung von burhanudinn123 zum Thema Entwicklung ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(1)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Router & Routing
gelöst Linksys wrt1200ac v2 mit dd-wrt: keine vlan-einstellungen im GUI (15)

Frage von Pixi123 zum Thema Router & Routing ...

Netzwerkprotokolle
Leiten "dumme" Switches VLAN-Tags mit durch? (14)

Frage von coltseavers zum Thema Netzwerkprotokolle ...

E-Business
Wo tragt ihr eure privaten Termine ein? (13)

Frage von honeybee zum Thema E-Business ...

Windows Server
Terminalserver starten willkürlich neu (12)

Frage von thaefliger zum Thema Windows Server ...