Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1676to1680
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zugriff auf Unterordner im Excel

Zugriff auf Unterordner im Excel
28.02.2019 10:52:12
Ronald
Hallo an alle
Ich möchte gerne vom Excel per VBA auf das Outlook zugreifen, und zwar speziell auf
das Postfach und möchte Unterordner oder Unterordner von Unterordnern vom Posteingang
anzeigen und ggf. auch Ordner dort erstellen lassen und auch von Excel aus
standardisierte bzw. automatisierte E-Mails senden lassen.
Was ich bisher habe:
Private Sub cmdOutlook_Click()
Dim applOutlook As Outlook.Application
Dim nsOutlook As Outlook.Namespace
Dim fldr As Folder
Dim fOutlook As Outlook.Folder
Dim sf1Outlook As Outlook.Folder
Dim sf2Outlook As Outlook.Folder
Dim sf1Outlook1 As Outlook.Folders
Dim oAccount As Account
Set applOutlook = New Outlook.Application
Set nsOutlook = applOutlook.GetNamespace("MAPI")
For Each oAccount In Session.Accounts
For Each fldr In nsOutlook.Folders
If fldr.Name = "Service Tuboly-Astronic AG" Then
MsgBox "Yes"
Set sf1Outlook = fldr.Folders("Posteingang")
MsgBox sf1Outlook
'dies hier funktioniert leider nicht:
Set sf2Outlook = fldr.Folders("Posteingang").sf1Outlook.Folders("SVF")
'dies hier funktioniert leider auch nicht:
Set sf2Outlook = fldr.Folders("Posteingang").Folders("SVF")
MsgBox sf2Outlook
sf2Outlook.Display 'Sollte dann den entsprechenden Ordner öffnen und anzeigen
End If
Next
Next
End Sub
Wäre schön, wenn mir jemand Tips geben könnte, was ich falsch mache, bzw. was ich
besser machen könnte.
Ebenso, was das Erstellen von Ordnern und das Senden von E-Mails betrifft.
Wobei bei letzterem ich eigentlich nur noch wissen müßte, wie man einen eigenen
Betreff setzt.
Das Senden als solches funktioniert bei mir so:
Private Sub MailSenden()
Dim strEmpfaenger As String
strEmpfaenger = frmService.txtEmail36.Text
Call ShellExecute(0&, "Open", "mailto:" + strEmpfaenger, "", "", 1)
End Sub
Hierbei muß ich sagen, daß dies lediglich Outlook als neue E-mail öffnet.
Wenn ich das ganze ohne Outlook senden könnte, wäre das besser. Dann hätte
ich einen Standardtext, einen wechselnden Empfänger und einen wechselnden
Betreff, was ich beides per Quelltext dynamisch zuzuweisen gedenke.
Wäre toll, wenn mir auch hierbei jemand Tips geben könnte.
Vielen Dank im Voraus.
Gruß Ronald

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zugriff auf Outloookunterordner vom Excel
28.02.2019 16:25:23
Ronald
Hallo an alle.
Ich habe nun den Betreff etwas angepaßt, damit es aussagekräftiger wird
und hoffe, es gibt jemanden, der mir hier helfen kann.
Gruß Ronald
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige