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 - VBA - Eine Nachricht kopieren

Mitglied: Dani

Dani (Level 5) - Jetzt verbinden

26.11.2008, aktualisiert 30.11.2008, 10568 Aufrufe, 13 Kommentare

Hi Jungs und natürlich auch Mädels,
ich stehe vor einem Problem, wo ich eure Hilfe wieder brauche.

Ich habe hier eine Windows 2003 Domäne + Exchange 2003. Der Benutzer um den es geht, hat ein Eigenes Postfach. Zusätzlich nochmal ein Exchangepostfach (Wir sagen Funktionspostfach). Darüber kann der Benutzer Mails lesen und antworten. Das funktioniert soweit auch sehr gut.

Leider landen alle Mails, die er über das Funktionspostfach sendet, in seinem Ordner "Gesendete Objekte" und nicht im Ordner "Gesendete Objekte" im Funktionspostfach.
Gibts dafür eine Lösung? Egal ob Regel, Tool, VBA, etc...


Viele Grüße,
Dani
Mitglied: Dani
26.11.2008 um 21:19 Uhr
So, ein bisschen habe ich nun selber schon hinbekommen. Ich gehe den Weg per VBA:
01.
Public Sub test() 
02.
    Dim Mails As Outlook.Items 
03.
    Dim Mail As Object 
04.
     
05.
     
06.
    'Outlook als Object erstellen 
07.
    Set myOlApp = CreateObject("Outlook.Application") 
08.
    Set myNameSpace = myOlApp.GetNamespace("MAPI") 
09.
    
10.
    Set FolderUserInbox = myNameSpace.GetDefaultFolder(olFolderInbox) 
11.
    Set FolderUserDir = FolderUserInbox.Parent.Folders("Gesendete Objekte") 
12.
     
13.
     
14.
    Set FolderFuncInbox = myOlApp.Session.Folders("Postfach - Administrator") 
15.
    Set FolderFuncDir = FolderFuncInbox.Folders("Gesendete Objekte") 
16.
     
17.
     
18.
    Set Mails = FolderUserDir.Items 
19.
    .....     
20.
End Sub
Was mir nun noch fehlt, ist der Filter. Und zwar kann ich eigentlich nur auf die Absenderadresse filtern. Außerdem braucht er nie mehr als die neusten 5 Mails im "Gesendete Objekte" - Verzeichnis durschauen und ggf. verschieben.


Grüsse,
Dani
Bitte warten ..
Mitglied: bastla
26.11.2008 um 21:31 Uhr
Hallo Dani!

Sollte etwas in der Art sein (Du weißt ja: "Outlook - ich nix zuständig!" ):
01.
For Each M In Mails 
02.
    If UCASE(M.SenderName) = UCASE("AbsenderFuncMailBoxName") Then 
03.
        M.Move FolderUserDir ' ZielOrdner ? 
04.
    End If 
05.
Next
Grüße
bastla
Bitte warten ..
Mitglied: Dani
26.11.2008 um 22:01 Uhr
Ich weiß...aber man lernt nie aus.
Soweit sieht es nicht schlecht aus. Ein Problemchen gibt es noch.

Und zwar ich müsste den String aus der Spalte "An" haben. Weil SenderName ist doch leer?!

Grüsse,
Dani
Bitte warten ..
Mitglied: bastla
26.11.2008 um 22:11 Uhr
Hallo Dani!
Weil SenderName ist doch leer?!
Ich glaube alles ...

Dann musst Du wohl die "Recipients"-Collection durchackern, etwa:
01.
For Each M In Mails 
02.
    For Each R In M.Recipients 
03.
        If UCase(R.Address) = UCase("AbsenderFuncMailBoxName") Then 
04.
            M.Move FolderUserDir 
05.
            Exit For 
06.
        End If 
07.
    Next 
08.
Next
Grüße
bastla
Bitte warten ..
Mitglied: Dani
26.11.2008 um 22:15 Uhr
Sry, das Feld heißt nicht "An" sondern "Von".
Bitte warten ..
Mitglied: bastla
26.11.2008 um 22:19 Uhr
Wenn's nicht ".SenderName" ist, dann vielleicht ".SentOnBehalfOfName" ...

Grüße
bastla
Bitte warten ..
Mitglied: Dani
26.11.2008 um 22:40 Uhr
Hi bastla,
das ist wohl eine Sackgasse. Ich habe das entsprechende Schlüsselwort "SenderEmailAddress" gefunden. Leider ist dieses leer, sobald ich über das Funktionspostfach sende.

ICh verfolge gerade einen anderen Ansatz. Und zwar diesen:
01.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 
02.
   .... 
03.
End Sub
D.h. würde heißen, dass beim Senden etwas passieren kann. Wäre es möglich, eine Kopie beim Senden zu erzeugen und diese im Verzeichnis "X" abzulegen?


Gruss,
Dani
Bitte warten ..
Mitglied: bastla
26.11.2008 um 22:45 Uhr
Hallo Dani!

Sieh Dir einmal Gesendete Objekte in andere Outlook Ordner verschieben an ...

Grüße
bastla
Bitte warten ..
Mitglied: Dani
26.11.2008 um 22:50 Uhr
Hi,
das kenne ich schon...leider funktioniert das nur bei POP/IMAP Konten. Wenn allerdings ein Exchangekonto in ein anderes eingehängt wird, kann dieses nicht ausgewählt werden.


Gruss,
Dani
Bitte warten ..
Mitglied: bastla
26.11.2008 um 23:05 Uhr
Hallo Dani!

Wenn es keinen Anhaltspunkt für eine gesendete Mail gibt, dürfte es auch beim Senden schwierig sein, eine Unterscheidung zu treffen - ist allerdings nur eine Annahme; gefunden habe ich zwischenzeitlich leider nichts mehr, sorry ...

Grüße
bastla
Bitte warten ..
Mitglied: Dani
30.11.2008 um 21:01 Uhr
Hmm...ich bin im Moment auch ratlos...mir fällt gerade auch keinen Punkt ein, wo man vergleichen könnte.


Gruss,
Dani
Bitte warten ..
Mitglied: dieablo
15.03.2009 um 14:19 Uhr
Hallo,

ich habe das gleiche Problem und auch eine Idee wie man es lösen könnte.
Weiß bloß nicht wie man am besten ran geht.
Da man, wie schon festgestellt wurde "SenderEmailAddress" nicht verwenden kann, könnte man doch einfach die Emails die im Ordner "Gesendete Objekte" kontrollieren und wenn in der Mail der Abesender "x" ist dann verschieben.
Fragt mich aber bitte nicht wie, ich suche gerade ob ich irgendwo dazu was finde.

Lg
Dieablo
Bitte warten ..
Mitglied: dieablo
17.03.2009 um 19:48 Uhr
Hallo, kann jemand helfen ??
Ich glaube ich habe es...
Mir fehlt nur der letzte Schritt
01.
Sub test() 
02.
 
03.
 Dim App As Outlook.Application 
04.
 Dim namespace As Outlook.namespace 
05.
 Dim ich As Outlook.MAPIFolder 
06.
 Dim test As Outlook.MAPIFolder 
07.
              
08.
 Set App = CreateObject("Outlook.Application") 
09.
 Set namespace = App.GetNamespace("MAPI") 
10.
       
11.
 Set ich = App.Session.Folders("Postfach - klar").Folders(4) 
12.
 Set test= App.Session.Folders("Postfach - Test Test").Folders(4) 
13.
    
14.
' If ich.GetExplorer.Selection.Item(1).SentOnBehalfOfName = "test" Then
müsste hier irgendwie stehen

move to test aber wie ??
01.
 'End If 
02.
   
03.
End Sub
Danke

Lg
Dieablo
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBA Files kopieren
Frage von Questionmark93VB for Applications3 Kommentare

Hay Leute, ich habe wiedermal eine Frage bzgl. VBA. Und zwar, ich möchte: Eine Datei auf den Desktop jeder ...

VB for Applications

Über VBA kopieren des gefilterten Bereiches

Frage von BlueLinesVB for Applications1 Kommentar

Hallo an Alle Könnte mir vielleicht jemand mit diesem Code weiterhelfen. 1. Problem: Er soll aus einer Mappe die ...

VB for Applications

Outlook 2010: Unterordner von Funktionspostfächern auf Neue Nachrichten überwachen (per VBA)

gelöst Frage von ArcanonXXLVB for Applications8 Kommentare

Hallo zusammen, ich hoffe ihr könnt mir helfen. Ich habe ein großes Funktionspostfach, in dem mehrere Unterordner vorhanden sind. ...

Outlook & Mail

Outlook. Verschieben von Nachrichten

Frage von NeotreitzOutlook & Mail3 Kommentare

Einen wunderschönen Guten Tag, ich kämpfe nun seit einiger Zeit mit einem Outlook Problem und hoffe dass mir hier ...

Neue Wissensbeiträge
Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 3 StundenHumor (lol)1 Kommentar

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 16 StundenGoogle 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 ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 16 StundenSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 19 StundenMicrosoft3 Kommentare

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Heiß diskutierte Inhalte
Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server40 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Router & Routing
ISC DHCP 2 Subnetze
gelöst Frage von janosch12Router & Routing19 Kommentare

Hallo, ich betreibe bei mir im Netzwerk einen ISC DHCP Server auf Debian, der DHCP verwaltet aktuell ein /24 ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...