[solved]Probleme mit querySimpleMailClient()

[che]

Ich habe folgenden Code zum verschicken einer Email:

Code: Alles auswählen

Sub mail

dim oMailer as Object
dim MailProgramm as variant
dim NeueNachricht as variant

oMailer = createUnoService( "com.sun.star.system.SimpleSystemMail" )
MailProgramm = oMailer.querySimpleMailClient()
NeueNachricht = MailProgramm.createSimpleMailMessage()
NeueNachricht.setRecipient("xxxxxx@gmx.de")
NeueNachricht.setSubject( "test4" )
Mailprogramm.sendSimpleMailMessage(Neuenachricht, 1 ) 
End Sub

Dieser Code funktioniert auch gut mit WinXP, OO 2.0 und Thunderbird.

Das gleiche Macro läuft unter Linux (debian sid), OO 2.0.3 und kmail immer auf Fehler:

MailProgramm = oMailer.querySimpleMailClient() <-diese Zeile wird als fehlerhaft makiert

"Objektvariable nicht belegt"

Ich weiß nicht warum es nicht geht;-(

Wenn ich unter Linux eine Datei über Datei -> Senden -> Dokument als Email... versenden möchte bzw. es tue, dann wird Kmail ordnungsgemäß als Emailprogramm aufgerufen.

Hat jemand eine Idee?

[che]

Habe die Lösung doch noch gefunden.

So geht es Plattform übergreifend:

Code: Alles auswählen

Sub mail

dim oMailer as object
dim MailProgramm as variant
dim NeueNachricht as variant

If GetGuiType = 1 Then
     
     oMailer = createUnoService("com.sun.star.system.SimpleSystemMail")'Windows
          
   ElseIf GetGuiType = 4 Then
    
      oMailer = createUnoService("com.sun.star.system.SimpleCommandMail")'Unix, Linux
		
	
   Else
      MsgBox "Mailen geht nicht", 16            

   End If 
   
	MailProgramm = oMailer.querySimpleMailClient()
	NeueNachricht = MailProgramm.createSimpleMailMessage()
	NeueNachricht.setRecipient("xxxxx@gmx.de")
	NeueNachricht.setSubject( "test" )
	Mailprogramm.sendSimpleMailMessage(Neuenachricht, 0 ) 

End Sub