Top-Themen

Aktuelle Themen (A bis Z)

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

Mitglied: Zunaras

Zunaras (Level 1) - Jetzt verbinden

20.11.2009, aktualisiert 07:38 Uhr, 6363 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
Outlook & Mail

Outlook 2013 - Emails bearbeiten und erneut senden (Makro?)

gelöst Frage von FlooooOutlook & Mail16 Kommentare

hey moin, es kann ja eigtl nicht sein, dass OUTLOOK 2013 keinen shortcut für "Email erneut senden" hat :-D ...

Outlook & Mail

Outlook Antwort auf eine Email von Senden im Auftrag von

gelöst Frage von Martin1984Outlook & Mail3 Kommentare

Hallo zusammen, leider habe ich bis jetzt noch nichts im Internet gefunden, deshalb hier meine Frage. Bei uns in ...

Microsoft

Mit VBA-Code ein Verzeichnis erstellen

gelöst Frage von DockMaster-deMicrosoft2 Kommentare

Hallo, ich habe mit MS Access 2010 eine Datenbank und ein Frontend. Daten werden über ein Formular eingegeben. Ich ...

Basic

Formeln in VBA Code einfügen

gelöst Frage von Dett18Basic6 Kommentare

Hallo liebe Excel VBA Gemeinde, ich habe hier eine Buchungsdatei, die mit Daten einer Rechnung gefüllt wird. Da ich ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 1 TagWindows 105 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 1 TagAdministrator.de Feedback18 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 2 TagenHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 2 TagenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Hyper-V
Hyper-V mit altem XEON-Server. Was ist falsch?
Frage von LollipopHyper-V11 Kommentare

Hallo Bin etwas frustriert. Kleinbetrieb, ca. 15 PC's, 2 Stk. Server mit einigen virtuellen PC's für Fernwartung, VaultServer für ...

Windows Server
NTFS Berechtigungen Ordnerstruktur
Frage von hukahu23489Windows Server11 Kommentare

Hallo, ich bin seit kurzem in einer neuen IT-Abteilung und bin über das Berechtigungskonzept des Unternehmens sehr schockiert. Ich ...