Frage zu Verwenden des objNewMail.Subject und zum Folders

Hallo Leute,

ich habe mal 2 Fragen.

1. Ich habe im Betreff der Mails die ich bearbeiten will immer ander Bezeichnungen mit unterschiedlicher Länge.
Was aber gleich ist sind 2 eckige Klammern (Bsp. [Meldung von Mueller] und dann kommt noch einiges, oder [Meldung von Mustermann] und wieder einiges dazu)
Mir fällt beim Besten Willen nicht mehr ein wie ich das Stück zwischen den Klammern in eine Variable stecken kann, habe das früher in SQL öfter gemacht. Aber das schlägt wohl Alzheimer zu

2. Ich möchte einen Bestimmten Unterordner ansprechen
z.Z geht das mit:
Set objMeinOrdner = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("MeinOrdner")
aber ich würde gern den "MeinOrdner" nicht unter dem Posteingang haben wollen sondern wo anders.

Danke schon mal
0belixx

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 190143

Url: https://administrator.de/forum/frage-zu-verwenden-des-objnewmail-subject-und-zum-folders-190143.html

Ausgedruckt am: 23.12.2024 um 18:12 Uhr

11 Kommentare

Neuester Kommentar

Moin,

zu 1.
sowas ähnliches hatte ich auch. bastla, didi1954 und rubberman verhalfen mir zur Lösung, wie ich die Variable da reinbekomme. Mein Konstrukt ist mit VBS in einer Batch aufgebaut. Sicherlich ist das alles auch per VBS only zu lösen, ich habs so und hoffe ich kann dir damit helfen.

Ich habe ein Script in dem Daten an unterschiedliche Mailadresse gesendet werden. Mal an Mitarbeiter X mal an Y.
Ganz am Anfang habe ich eine Abfrage gemacht und danach ein Case in der die Auswahl abgefragt und die Information in eine Variable gepackt wird.

Damit du das Script mal siehst hier: CSV in XLSX mit OpenOffice und VBS und das ganze in meine Batchscript, das die Datei per Mail versendet (Das untere Script in dem Post) Zeile 269-277 ist für dich der Interessante Teil. Die Abfrage ist in Zeile 19-63.

In VBS (sofern es in Batch ist) rufst du die Variable dann mit %VARIABLE% (Zeile 271 und 275) auf. Fertig.

Gruß Zero

Hallo Zero,

danke, das ist ja ne Menge Script.
Trotz deinem Hinweis blick ich nicht durch.
Ich hatte gehoft mir könnte jemand sowas raten wie

Dim Name as string
Name = finde die ertse Klammer, dann nimm den Text bis zur nächsten Klammer und schneide den Rest weg

aber das in der richtigen "Sprache"

Gruß
0belixx

Moin,

ja, also wie du in VBS eine Abfrage machst das der betroffene seinen Nachnamen eingibt "Mueller" "Mustermann" "Hase" "Franzchen" usw. und dieser dann in die Nachricht gepackt wird bzw in den Betreff.

Eine Abfrage "Geben sie ihren Nachnamen ein"

set Name = Geben Sie Ihren Nachnamen ein:

Das in eine Variable, hier Name und dieses dann aufrufen im VBS zum senden der Nachricht mit

"[%Name%]"

In Kombination mit einem Batch weiß ichs, nur mit VBS, kann ich dir leider nicht helfen, da msust du dann warten bis wer antwortet, der sich mit VBS besser auskennt als ich.

Gruß Zero

Hallo Obelixx, ColdZero89!

In etw so:

Const TestString = "Text und [Meldung von XY] nochmehr Text"  

Sub Test()
    Dim aText As Variant, sText As String
    
    aText = Split(TestString, "[")      'Text an Klammer splitten  
    
    If UBound(aText) > 0 Then           'Test ob "[" vorhanden  
        sText = Split(aText(1), "]")(0) 'sText = Klammerinhalt  
        MsgBox sText
    End If
End Sub

Gruß Dieter

Hallo Zero

da ist ein Missverständniss, habe ich wohl falsch erklärt.

Das Script soll ja ohne Eingabe funktionieren. Die Daten die ich Brauche sind ja schon vorhanden.
Der Name soll ja der Betreff der empfangennen E-Mail sein.
Bisher habe ich das so:
(Ich weiss leider nicht wie ich hier Formatiere)

Dim Name As String
Name = objNewMail.Subject
Name = Replace(Name, ">", "")
Name = Replace(Name, "[", "")
Name = Replace(Name, "]", "")
Name = Replace(Name, "-", "")
Name = Replace(Name, "&", "und")
Name = Replace(Name, Chr(34), "")
Name = Replace(Name, " ", " ")

aber da wird die Variable "Name" so lang und unhandlich.

Gruß
0belixx

Hallo Obelixx!

Hab's schon richtig verstanden

Anstelle von 'TestString' fügst Du in Codezeile 6 eben 'objNewMail.Subject' ein

Gruß Dieter

Hallo Dieter
Super, Vielen Dank funktionier Prima

Meine vorherige Antwort hatte sich mit deiner überschnitten, war die Antwort auf Zeros nettes Schreiben.

Hast du noch eine Idee zu meiner anderen Frage
Gruß
0belixx

Hallo Obelixx!

Hast du noch eine Idee zu meiner anderen Frage

Leider nicht

Habe kein Outlook installiert und beschäftige mich auch nicht damit

Gruß Dieter

Moinsen,

ah ok, sry für die Verwirrung

Zu 2. Ich denke GetDefaultFolder(olFolderInbox). ist der entscheiden Punkt! Ich denke damit ist nicht der Default ordner von Outlook gemeint, sondern der, in den er gucken soll, bzw welchen pfad er gehen soll. Nach dem Motto "D:\" da drin guckste mal ob du ordner "Hans" findest, verstehst? ^^

Da würd ich eventuell mal googlen, was es für den befehl noch für Möglichkeiten gibt um eventuelle UNterorder oder andere ordner anzusprechen.

Gruß Zero

@all

habe es gelöst.

Dim objMeinOrdner As Outlook.MAPIFolder
Set objMeinOrdner = Application.GetNamespace("MAPI").Folders.Item("Persönlicher Ordner").Folders.Item("Ablage").Folders.Item("MeinOrdner")

Danke für eure Hilfe
0belixx