BASE & MAIL
Geplaatst: za feb 14, 2015 2:05 pm
Ik zou graag een e-mail verzenden vanuit een Form maar ik heb geen idee wat ik moet doen met
:: com :: sun :: star :: module mail.
ik krijg steeds een foutmelding in volgend Basic subroutine:
Sub openEmailClient222(Event As Object)
Dim MailClient, MailAgent,MailMessage As Object
dim mTo
Dim UI As Integer
MailAgent=CreateUnoService("com.sun.star.system.SimpleCommandMail")
' mri thiscomponent : end
'print typename(MailAgent) : end
'MailClient=MailAgent.querySimpleMailClient
'if typename(MailClient) <> "Object" then print "We cannot work" : end ' test for mailclient
' there is a mail client now fill parts
MailMessage=MailAgent.createSimpleMailMessage ==> hier krijg ik: BASIC runtimefout Objectvariabele niet ingesteld
Wat doe ik hier fout of welke declaratie ben ik vergeten?
:: com :: sun :: star :: module mail.
ik krijg steeds een foutmelding in volgend Basic subroutine:
Sub openEmailClient222(Event As Object)
Dim MailClient, MailAgent,MailMessage As Object
dim mTo
Dim UI As Integer
MailAgent=CreateUnoService("com.sun.star.system.SimpleCommandMail")
' mri thiscomponent : end
'print typename(MailAgent) : end
'MailClient=MailAgent.querySimpleMailClient
'if typename(MailClient) <> "Object" then print "We cannot work" : end ' test for mailclient
' there is a mail client now fill parts
MailMessage=MailAgent.createSimpleMailMessage ==> hier krijg ik: BASIC runtimefout Objectvariabele niet ingesteld
Wat doe ik hier fout of welke declaratie ben ik vergeten?