Outlook Programmierung mit VBS / VBA - Email Speichern

[Nalli]

Hallo (:

Ich bin absoluter Neuling in VBA / VBS und habe ein bisschen mit Outlook Programmierung herumgespielt, um mir den Bueroalltag zu vereinfachen.

Ich moechte gerne Emails in einen vorher fest definierten Ordner speichern.

Deshalb habe ich mir eine UserForm erstellt (die ich spaeter ueber einen Button in der Toolbar oeffnen moechte) und mir gedacht, dass ich dort einfach einen Button raufklatsche und mit ihm einen SaveDialog öffne, der dann einen voreingestellten Pfad anzeigt, wo ich meine Mails speichern kann.

Allerdings klappts nicht so, wie ich mir das vorgestellt habe (und das erst bei drei Zeilen *peinlich peinlich*).

Ich habe in der Hilfe bereits gesucht und vielversprechende Stichworte wie msoFileDialogSaveAs gefunden, die ich allerdings nicht so richtig anwenden konnte...

Hier mal die Idee, wie ich es ausprobieren wollte.

---------------------------------------------------------
Option Explicit

Dim fd As FileDialog
Dim items As Outlook.MailItem

Private Sub CommandButton1_Click()
fd.Path = xxx
fd.Execute

End Sub
---------------------------------------------------------

Naja, dann hab ich noch ein bisschen weiter probiert und bin inzwischen so weit gekommen:

--------------------------------

Dim oOApp
Dim oOMail

Private Sub CommandButton1_Click()

Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)

With oOMail
.SaveAS
End With

End Sub

--------------------------------

Allerdings kommt dann folgende Fehlermeldung:

Laufzeitfehler '449'
Arugment ist nicht optional

Was ist damit gemeint? Welches Argument wird da angesprochen?

Vielen Dank fuer eure Hilfe im voraus :)

[Siechfred]

Laufzeitfehler '449'
Arugment ist nicht optional

Da fehlt einem Methodenaufruf ein erforderliches Argument.

Was ist damit gemeint? Welches Argument wird da angesprochen?

Siehe http://msdn2.microsoft.com/en-us/library/aa613079(office.10).aspx.

Siechfred

[Nalii]

Vielen Dank (: das Beispiel hat sehr geholfen.

Ich habe noch eine Frage: ist es nun möglich, dass ich ueber eine Installationsroutine automatisch einen Button in der Outlook Toolbar erstelle, der mein VBScript ausfuehrt?

Laufzeitfehler '449'
Arugment ist nicht optional

Da fehlt einem Methodenaufruf ein erforderliches Argument.

Was ist damit gemeint? Welches Argument wird da angesprochen?

Siehe http://msdn2.microsoft.com/en-us/library/aa613079(office.10).aspx.

Siechfred

[Siechfred]

Ich habe noch eine Frage: ist es nun möglich, dass ich ueber eine Installationsroutine automatisch einen Button in der Outlook Toolbar erstelle, der mein VBScript ausfuehrt?

Mit den Makrofunktionen (ist letztlich auch nichts anderes als VB-Script) von Outlook sollte das gehen, ausprobiert habe ich es noch nicht.

Siechfred