Sending Mail from Calc Macro

[JyotirmoyD]

I am trying to send mail directly from Calc.
I am using the below code (got this code from Oo forum)
Code is working fine when cell "H3" contains English Text. But when I am trying to send other language (Bengali in my case) receiver is getting ????? (question marks) in his mail box.
How to solve that issue.

Code: Select all

REM  *****  BASIC  *****

Sub Main
eMailAddress = "******@*****.com"

   eSubject = "Test email"
   
   Sheet = ThisComponent.Sheets.getByName("Dictionary")
   Cell = Sheet.getCellrangeByName("H3")
   eBody = Cell.String

   eMailer = createUnoService("com.sun.star.system.SystemMailProvider")
   eMailClient = eMailer.queryMailClient()
   eMessage = eMailClient.createMailMessage()
   eMessage.Recipient = eMailAddress
   eMessage.Subject = eSubject
   eMessage.Body = eBody
   'AttachmentURL = convertToUrl("")
   'eMessage.Attachement = Array(AttachmentURL)
   eMailClient.sendMailMessage ( eMessage, com.sun.star.system.MailClientFlags.NO_USER_INTERFACE )
End Sub

[Villeroy]

In the 90ies StarOffice had its own mail client. This decades old service may not support unicode.
LibreOffice seems to have modernized these services. At least they are renamed and modified somehow.

[JyotirmoyD]

Is there any way that I can send mail containing Other Languages from Calc using macro ?

[karolus]

Is there any way that I can send mail containing Other Languages from Calc using macro ?

Of course -- but not with poor old basic

with Libreoffice4.4 (python3.3):

Code: Select all

from smtplib import SMTP
from email.mime.text import MIMEText
loginname = '....'
password = '....'
server = 'mail.some_provider.org'
me = 'my_name@some_provider.org'
subject = 'test germän umlauts'

def sendmail(*_):
    doc = XSCRIPTCONTEXT.getDocument()
    sel = doc.CurrentSelection
    msg = sel.String
    print( msg )
    # prints:
    # `hallölele {}` 
    message = MIMEText(msg.format(me ))
    message['Subject'] = subject
    message['From'] = me
    message['To'] = me

    with SMTP(server) as mailserver:
        mailserver.login(loginname, password)
        mailserver.send_message(message )