Wo ist hier der Fehler

hanssonny · 13. September 2012, 12:47

Visual Basic-Quellcode

Sub SaveAsTXT()
Dim myItem As Outlook.Inspector
Dim objItem As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector
If Not TypeName(myItem) = "Nothing" Then
Set objItem = myItem.CurrentItem
strname = objItem.Subject
'Prompt the user for confirmation
Dim strPrompt As String
strPrompt = "Are you sure you want to save the item? If a file with the same name already exists, it will be overwritten with this copy of the file."
If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
objItem.SaveAs "C:\" & strname & ".txt", olTXT
End If
Else
MsgBox "There is no current active inspector."
End If
End Sub

Wo ist in dem Script der fehler beim ausführen sagt es mir zeile 2 anweisungsende erwartet .......

Mono · 13. September 2012, 13:08

Wo steht der Code?

In den ersten 2 Zeilen kann ich keinen Fehler entdecken.
Ist das vll VB Script ? Die Fehlermeldung hört sich nämlich so an.
In VBScript gibt es keine Variablendeklaration mit Typen
Also kein AS

Dort nur
Dim myItem, objItem

usw

hanssonny · 13. September 2012, 13:24

ist in outlook formular editor und da im script editor
habe es so probiert:
Dim myItem, Outlook.Inspector

selber fehler selbe zeile

Skorpion79 · 13. September 2012, 18:31

Outlook.Inspector ist kein Datentyp. Würd ich als Object deklarieren.

hanssonny schrieb:

If Not TypeName(myItem) = "Nothing" Then

Damit fährst Du gegen den Baum. TypeName gibt den Datentypen zurück mit dem das Element deklariert wurde. Du möchtest aber prüfen ob myItem nicht Nothing ist.
Also besser so:

Visual Basic-Quellcode

If Not myItem Is Nothing Then

Sollte myItem dennoch Nothing sein würde Die MsgBox (Zeile 16) kommen.

hanssonny schrieb:

If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then

Möchtest Du wirklich zwei logische Werte miteinander addieren? Sicherlich nicht.
Also:

Visual Basic-Quellcode

If MsgBox(strPromt, vbYes or vbQuestion) = vbYes Then

petaod · 13. September 2012, 22:23

vbYesNo + vbQuestion sind keine Booleans, sondern Bytes mit einem gesetzten Bit, sie erzeugen eine neue Bitmaske (4+32) -> 00100100
Das ist OK so.

Wenn du die beiden Bytes OR-verknüpfst, erreichst du allerdings dasselbe.

hanssonny · 14. September 2012, 09:03

den codeteil hatte ich von der MSDN Seite....
ja wie müsste es denn lauten damit es funktioniert?

LukiLeu · 14. September 2012, 10:32

Noch ein anderer Hinweis. Du hast zwei "End If" aber nur ein "If". Nimm einmal das erste "End if" raus.

hanssonny · 14. September 2012, 11:23

LukiLeu schrieb:

Noch ein anderer Hinweis. Du hast zwei "End If" aber nur ein "If". Nimm einmal das erste "End if" raus.

ies sind zwei ifs drinnen ... das ist schon richtig ...

ErfinderDesRades · 14. September 2012, 11:48

vlt. ein Abschreibefehler vonne MSDN? oder was weggelassen?

Weil üblicherweise funzt deren Zeugs ja.

peterfido · 14. September 2012, 23:36

Welche Outlook Version verwendet Du? Ist beim Aufruf des Makros eine Email im aktiven Fenster offen? Auf der MS-Seite stehen noch mehr Bemerkungen dazu.
Da ich zu Hause kein Outlook habe, kann ich den Code nicht testen. Hiernoch eine andere Lösung.

petaod · 15. September 2012, 11:02

Das Script funktioniert bei mir einwandfrei.
Ich habe den Code in ThisOutlookSession per C&P eingefügt ohne Veränderung.

Wenn eine Mail offen ist, speichert er sie, wenn nicht bringt er die MsgBox.

Ich kann das Problem nicht nachvollziehen.

hanssonny · 17. September 2012, 07:58

ich möchte diesen dialog in ein formular einbetten und bei klick auf einen button im formular ausführen lassen

Wo ist hier der Fehler

Wo ist hier der Fehler

Visual Basic-Quellcode

hanssonny schrieb:

Visual Basic-Quellcode

hanssonny schrieb:

Visual Basic-Quellcode

LukiLeu schrieb:

Ähnliche Themen

6 Benutzer haben hier geschrieben