15.10.2012

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

Formeln auf einer UserForm in einer TextBox darstellen...

Formeln auf einer UserForm in einer TextBox anzeigen. Z. B. "Formula", "FormulaLocal"... und wie muss die Formel in VBA ...