Zugriff auf Unterordner im Excel
28.02.2019 10:52:12
Ronald
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 ichbesser 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