Outlook - Ordner unter Posteingang erstellen...

Frage: Ich möchte aus Excel per VBA einen Ordner in Outlook unter "Posteingang" erstellen. Wie geht das?

Option Explicit
'-------------------------------------------------------------------------- 
' Module    : Module1 
' Procedure : Main 
' Author    : Case (Ralf Stolzenburg) 
' Date      : 15.10.2012 
' Purpose   : Outlook - Ordner unter "Posteingang" erstellen... 
'-------------------------------------------------------------------------- 
Sub Main()
    Dim objNewFolder As Object
    Dim objFolder As Object
    Dim objOutApp As Object
    Dim objName As Object
    On Error GoTo Fin
    Set objOutApp = CreateObject("Outlook.Application")
    Set objName = objOutApp.GetNamespace("MAPI")
    ' 6 = olFolderInbox 
    Set objFolder = objName.GetDefaultFolder(6)
    Set objNewFolder = objFolder.Folders.Add("Test")
Fin:
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & " " & Err.Description
    Set objNewFolder = Nothing
    Set objFolder = Nothing
    Set objName = Nothing
    Set objOutApp = Nothing
End Sub

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...