Seite 1 von 1
Fehlermeldung beim Erstellen von eMails
Verfasst: Sa, 01.08.2009 16:02
von 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
Re: Fehlermeldung beim Erstellen von eMails
Verfasst: So, 02.08.2009 13:11
von 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
Re: Fehlermeldung beim Erstellen von eMails
Verfasst: So, 02.08.2009 14:21
von 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
Re: Fehlermeldung beim Erstellen von eMails
Verfasst: So, 02.08.2009 14:31
von 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