Office: Ordnerauswahl beim Senden

Hallo zusammen,

hoffe ihr könnt mir weiter helfen :-). Da ich mich nicht wirklich aus kenne mit VBA.

2.Weis einer wie ich den Start Ordner ändern kann so das er nicht immer auf dem Posteingang steht sonderen z.B. auf Gesendete Elemente? Den schreibt ihr in ein ganz normals Module

1.Dazu gehört auch noch ein anderer Teil den ihr in ein Klassenmodule schreibt

LG

-------------------------------------------------------
1
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Cancel = SentFolder(Item)
Set Item = Nothing

End Sub
--------------------------------------------------------------------------
2
Public Function SentFolder(ByRef Item As Object) As Boolean

Dim objFolder As Object

If Not Item.Class = olMail Then Exit Function

Do
Set objFolder = Nothing
Set objFolder = Outlook.Session.PickFolder
If objFolder Is Nothing Then
SentFolder = True
Exit Function
End If

If InStr(objFolder.DefaultMessageClass, "IPM.Note") = 0 Then
Set objFolder = Nothing
If MsgBox("Bitte wählen Sie einen Ordner für E-Mails aus." _
, vbCritical + vbOKCancel, "Ablage auswählen") = vbCancel Then
SentFolder = True
Exit Function
End If
End If

If Not objFolder Is Nothing Then
If objFolder = Outlook.Session.GetDefaultFolder(olFolderInbox) Then
If MsgBox("Möchten Sie wirklich die gesendete E-Mail im Posteingang ablegen?" _
, vbExclamation + vbYesNo + vbDefaultButton2, "Ablage auswählen") = vbNo Then
Set objFolder = Nothing
End If
End If
End If

Loop While objFolder Is Nothing

Set Item.SaveSentMessageFolder = objFolder
Set objFolder = Nothing

End Function