To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=111508
------- Additional comments from c...@openoffice.org Mon May 10 10:25:59 +0000
2010 -------
rem Can then be used like so from basic
Sub Main
oMailProvider = CreateUNOService("com.sun.star.mail.MailServiceProvider")
oCont = CreateUNOListener("CurCont_","com.sun.star.uno.XCurrentContext")
oAuth = CreateUNOListener("Authent_","com.sun.star.mail.XAuthenticator")
oClip = CreateUnoService("com.sun.star.datatransfer.clipboard.SystemClipboard")
oMailServiceObj = com.sun.star.mail.MailMessage
rem http://api.openoffice.org/docs/common/ref/com/sun/star/mail/MailMessage.html
rem Use the contents of the clipboard as the content of the email
oMail = oMailServiceObj.create( "y...@your.domain", "y...@your.domain",
"SUBJECT",
oClip.getContents() )
xMailServer = oMailProvider.Create("com.sun.star.mail.SMTP")
xMailServer.Connect(oCont,oAuth)
msgbox xMailServer.isConnected
xMailServer.SendMailMessage(oMail)
xMailServer.Disconnect()
End Sub
Function CurCont_GetValueByName(s) as Any
Select Case s
Case "ServerName"
CurCont_GetValueByName = "mail.your.domain"
Case "Port"
CurCont_GetValueByName = 25
Case "ConnectionType"
CurCont_GetValueByName = "Insecure"
End Select
End Function
Function Authent_GetUserName() as Any
Authent_GetUserName = "y...@your.domain"
End Function
Function Authent_GetPassword()
Authent_GetPassword = "YOURPASSWORD"
End Function
---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
---------------------------------------------------------------------
To unsubscribe, e-mail: issues-unsubscr...@framework.openoffice.org
For additional commands, e-mail: issues-h...@framework.openoffice.org
---------------------------------------------------------------------
To unsubscribe, e-mail: allbugs-unsubscr...@openoffice.org
For additional commands, e-mail: allbugs-h...@openoffice.org
