Outlook: automatisches füllen der Postfach Absenderadresse

[Fr0sTBlaZe]

Hallo zusammen,

bevor jetzt Antworten kommen alá "Suchfunktion benutzen", möchte ich sagen, dass ich dies bereits gemacht habe und auf folgenden Beitrag von dem User iDiddi gestoßen bin:
http://www.mcseboard.de/ms-exchange-...se-172902.html (Benutzer alle mit gleicher Emailadresse)

Falls du da bist iDiddi hätte ich eine Frage zu deinen Script was den Absender automatisch in das Feld einträgt.

Das Script funktioniert soweit ganz gut, aber gibt es auch eine Möglichkeit das Script weitgehend anzupassen, sodass das "Von-Feld" mit dem jeweiligen Absender (Postfach) gefüllt wird auf dem man sich gerade befindet?

Beispiel:
Ich habe die E-Mail "Benutzer777@xyz.xy" und befinde mich, navigierend, auf dem Postfach "Service@xyz.xy". Dein Script füllt nur einen Absender in das "Von-Feld" und zwar den, der im Script konfiguriert wurde.

Ist es also möglich auf eine Art feststellen zu können wo sich der Nutzer gerade aufhält und so den Absender des "geöffneten Postfaches" in das "Von-Feld" ein zu tragen?

Ich hoffe ich konnte mich deutlich ausdrücken.

PS:
Ihr Anderen seid natürlich auch gefragt, wenn Ihr mir helfen könnte. Ich danke für jede Art von Hilfe, die zum Erfolg führen kann.

LG,
Fr0sT

[iDiddi]

Puh! Das wird nicht einfach werden. Stelle mir vor, dass man noch eine Abfrage zwischen

If m_Inspector.CurrentItem.SentOnBehalfOfName = "" Then 'Wenn Absenderfeld leer, dann...

und

m_Inspector.CurrentItem.SentOnBehalfOfName = "info@domain.de" '...Name des Absenders hinzufügen...

macht. Könnte mit "GetSharedDefaultFolder" funktionieren. Müsste ich aber selber ausprobieren. Bin jetzt echt kein VBA-Spezi. Kann ich aber bei Gelegenheit mal zusammenbasteln

Oder versuch's einfach mal selbst. Der Objekt-Explorer ist sehr hilfreich

[iDiddi]

Ach ja. Falls Du dafür selbst eine Lösung gefunden hast, wäre es nett, den Code hier im Board zu veröffentlichen. Dann haben alle was davon. Es lebe der Open Source-Gedanke

[Fr0sTBlaZe]

Wenn ich das könnte, würde ich es selbst schon probiert haben

Habe schon lange als Nicht-Programmierer gebraucht um deinen Code erstmal ein wenig zu verstehen

Sollte ich eine freie Minute haben kann ich es nochmal probieren, aber ich glaube weniger das ich ohne Kenntnissen erfolgreich sein werden.

Gruß,
Fr0sT

[iDiddi]

So. Hatte jetzt mal ein wenig Zeit. Gar nicht so einfach für einen Laien wie mich. Aber es klappt schon mal ganz gut (Ihr Programmier-Cracks da draußen: Bitte nicht lachen).

Leider funktioniert die Absender-zu-Postfach-Zuweisung nicht, wenn ein Suchordner ausgewählt wurde (dann landet man in der Fehlerroutine). Aber bei leerem Absenderfeld wird halt über den Standard-Account geschickt. Kann man also verschmerzen

'Makro erstellt am 29.07.2011 durch iDiddi
'
'AUTOMATISCHES AUSFUELLEN DES VON-FELDES MIT DER E-MAIL-ADRESSE 
'ABHÄNGIG VOM AKTUELL AUSGEWÄHLTEN POSTFACH
'
    Private Sub m_Inspector_Activate()
    On Error GoTo Ende 'Verhindert, dass beim Öffnen anderer Outlook-Klassen (z.B. Kontakte) Fehler angezeigt werden
    Dim PFAbsender As String
    Dim Postfach As String
    Dim m As String
    Dim myOrdner As Object
    Dim myUnterordner1 As Object
    Dim myUnterordner2 As Object
    Dim myUnterordner3 As Object
    Dim myUnterordner4 As Object
    '...
    '...
    
    m = "Mapi"
    Set myOrdner = Application.ActiveExplorer.CurrentFolder

    
    If m_Inspector.CurrentItem.SentOnBehalfOfName = "" Then 'Wenn Absenderfeld leer, dann...
    
        If myOrdner = "" Then
            Postfach = "Postfach - 1"
            GoTo Weiter
        End If
        
        If myOrdner.Parent = m Then
            Postfach = myOrdner
            GoTo Weiter
        End If
        Set myUnterordner1 = myOrdner.Parent
    
        If myUnterordner1.Parent = m Then
            Postfach = myUnterordner1
            GoTo Weiter
        End If
        Set myUnterordner2 = myUnterordner1.Parent
    
        If myUnterordner2.Parent = m Then
            Postfach = myUnterordner2
            GoTo Weiter
        End If
        Set myUnterordner3 = myUnterordner2.Parent
    
        If myUnterordner3.Parent = m Then
            Postfach = myUnterordner3
            GoTo Weiter
        End If
        Set myUnterordner4 = myUnterordner3.Parent
    
        If myUnterordner4.Parent = m Then
            Postfach = myUnterordner4
            GoTo Weiter
        End If
    
        '...
        '...
    
'Falls die Ordnerstruktur noch tiefer sein sollte, kann man hier noch weitere Unterordner hinzufügen

Weiter:
    
        Select Case Postfach
            Case "Postfach - 1"
            PFAbsender = "Absender1@domain.de"
            Case "Postfach - 2"
            PFAbsender = "Absender2@domain.de"
            Case "Postfach - 3"
            PFAbsender = "Absender3@domain.de"
            Case "Postfach - xyz"
            PFAbsender = "xyz@domain.de"
            Case ""
            PFAbsender = "Absender1@domain.de"
        End Select
        
        m_Inspector.CurrentItem.SentOnBehalfOfName = PFAbsender '...Name des Absenders hinzufügen...
        m_Inspector.CurrentItem.BCC = " " 'Hilfsanpassung, da Absender sonst nicht hinzugefügt wird (weiß Gott, warum!?)
    End If
    Set m_Inspectors = Application.Inspectors
Ende:
End Sub

Wie gesagt: War alles mal eben schnell, schnell. Ist bestimmt noch verbesserungswürdig. Ich würde die Postfach-Abfrage z.B. noch in eine extra Sub-Routine packen. Aber für's erste sollte es reichen. Probier's halt aus

PS: Über Verbesserungsvorschläge würde ich mich freuen

[iDiddi]

Das mit dem Suchordner wurmt mich ja jetzt ein wenig

Leider funktioniert die Absender-zu-Postfach-Zuweisung nicht, wenn ein Suchordner ausgewählt wurde (dann landet man in der Fehlerroutine).

Kann hier vielleicht Jemand weiterhelfen? Es muss doch auch irgendwie möglich sein, herauszubekommen, wo sich der Suchordner befindet. Leider stoße ich so langsam an meine Grenzen.

@Fr0sTBlaZe: Und? Konntest Du schon testen?

[Fr0sTBlaZe]

Nun bin ich seit Wochen wegen anderer Projekte nicht auf dieser Seite anwesend gewesen und iDiddi war fleißig. Ich bekomme das Script aber irgendwie nicht zum Laufen.

Hab es einfach 1:1 kopiert und in Outlook VB hinzugefügt. Es meldet sich gar nichts. Bin auch irgendwie aus dem Thema raus um feststellen zu können woran es liegt.

Funktioniert das überhaut, wenn ich es 1:1 in This Outlook Session kopiere?

Gruß,
Fr0sT

[iDiddi]

Ja. Du musst nur die Makrosicherheit runterschrauben. Dann sollte es klappen.

[Fr0sTBlaZe]

Hab es komplett deaktiviert - es geht nicht.

Was ich interessant finde ist das er folgenden Code verarbeiten kann:

If Application.ActiveExplorer.CurrentFolder = "Postfach - XYZ" Then
        m_Inspector.CurrentItem.SentOnBehalfOfName = "XYZ@domaene.de" '...Name des Absenders hinzufügen...
        m_Inspector.CurrentItem.BCC = " " 'Hilfsanpassung, da Absender sonst nicht hinzugefügt wird (weiß Gott, warum!?)

Handelt sich um deinen Code iDiddi :)

Das funktioniert leider nur, wenn ich direkt auf dem Postfach bin (es markiert habe). Ich hab leider keinen Code gefunden von einem Unterordner das jeweils oberste Postfach (in dem Fall XYZ) auslesen zu können.

Letztendlich brauchen wir keine Umwege machen. Der Client soll den obersten Ordner ermitteln und so das Von-Feld füllen, da in der Prozedur z.B. der Name des Postfaches abgefragt werden kann.

[GuentherH]

Hallo.

Kurze Zwischenfrage. Warum verwendet ihr nicht Outlook 2010, da ist diese Funktion bereits eingebaut.

LG Günther