Fehlermeldung beim Erstellen von eMails

[keksi1970]

Hi,

kann mir jemand diese Fehlermeldung erklären ?

hatte nie Probleme, eine eMail anzuzeigen, auf einmal diese Fehlermeldung.

kann es sein, das der Text zu lang ist ? (war in der Testphase bisher nicht so, Testphase2 geht aber über 300 Zeilen)

Die Fehlermeldung taucht auf beim Befehl : outlookMail.Display()

erstellt wird die Mail aber korrekt und das Fenster geht auch auf.

LG
ANdreas

[keksi1970]

so, bin einen Schritt weiter :

da es sowohl unter 2.41, 3.01 und 3.10 zu einer Fehelrmeldung kommt, könnte die Ursache auch am Outlook liegen.

xray jedenfalls erzaehlt mir, daß das erstellte Object anscheinend vollkommen leer ist.

wundersam : bis auf die echt störende Fehlermeldung funktioniert es (alle Daten werden richtig eingetragen, Adress und Betreffzeile werden korrekt ausgefüllt, usw). auch die Mail selber wird erstellt. nur beim Anzeigen kommt halt die Fehlermeldung. die Mail wird trotzdem angezeigt.

irgendwelche Lösungsvorschläge zur Unterdrückung dieser einen Fehlermeldung ? (was soll auch ne Fehlermeldung, wenn alles richtig funktioniert und ich die Mail nur noch senden muß)

LG
Andreas

Anbei der Code mit dem Aufruf :

Code: Alles auswählen

Call EmailSchreiben(Inhalt, Subjekt, emailAdresse, SpeicherUrl)

Sub EmailSchreiben(Inhalt as String, Subjekt as string, emailAdresse as string, optional Attachment as string ) ' Attachment als Url
Dim oOLEService
Dim oOutlookApp
Dim oOutlookMail

	ZU1 = "<BR>"
	ZU2 = "<BR><BR>"
	myformat = "0000"
	FOntFormat = "<span style=""font-family:Arial, sans-serif; font-size: 10pt;"">"
	FOntFormat2 = "<span style=""font-family:Arial, sans-serif; font-size: 12pt;"">"

	oOLEService = createUnoService("com.sun.star.bridge.OleObjectFactory")
	oOutlookApp = oOLEService.createInstance("Outlook.Application")
	oOutlookMail = oOutlookApp.CreateItem(0)

with oOutlookMail
	
	.To = emailAdresse
	'.CC = copystring
	.Subject = Subjekt
	.HTMLBody = Inhalt & ZU2 & Signatur
	If IsMissing(Attachment) then
	else
		.Attachments.Add(ConvertFromUrl(Attachment))
	End If
	.Display()
	'.send()
end with
End Sub

[Stephan]

irgendwelche Lösungsvorschläge zur Unterdrückung dieser einen Fehlermeldung ?

Da die Fehlermeldung doch wohl nur wegen der einen Zeile .Display() auftritt sollte es genügen vor dieer Zeile die Fehlerausgabe zu deaktivieren (... Resume Next) und nach der Zeile wieder zu aktivieren (... Goto 0). Oder treten dabei Probleme auf? Falls ja, welche?



Gruß
Stephan

[keksi1970]

hatte ich probiert, war aber wohl n Schreibfehler drin.

läuft jedenfalls ohne Meldung, alles wird angezeigt und alle Daten sind auch drni.

irgendeine Ahnung, woran die Display-Aufforderung scheitert ?

Danke jedenfalls.

LG
Andreas