Emailing through outlook!

[vks]

Hello..

I m here with another problem!
I have a code here to send mail from delphi through outlook.It is working fine.

Code: [Select]

uses
  ComObj;

procedure TForm1.Button16Click(Sender: TObject);
const
  olMailItem = 0;
  olByValue = 1;
var
  OutlookApp, MailItem : OLEVariant;
begin
  try
    OutlookApp := GetActiveOleObject('Outlook.Application');
  except
    OutlookApp := CreateOleObject('Outlook.Application');
  end;
  try
    MailItem := OutlookApp.CreateItem(olMailItem);
    MailItem.Recipients.Add('YourMailAddress@something.com');
    MailItem.Subject := 'Your Subject';
    MailItem.Body    := 'Your Message';
    MailItem.Send;
  finally
    myAttachments := VarNull;
    OutlookApp    := VarNull;
  end;
end;



But when i try to assign MailItem.Body to a string variable,like:

Code: [Select]

var
s: String;

procedure TForm1.Button16Click(Sender: TObject);
...
s:='Hello';
...
MailItem.Body:=s;


This code converts the string to other language when I see it in inbox.
I am unable to know what the problem is.Kindly do help me with it.

[ChrisF]

MailItem.Body:= UTF8Decode(s);  ?

[vks]

Hello ChrisF..

I got 'SIGSEGV exception' :-(

[ChrisF]

Sorry, I can't make any test with Outlook.

Make a try with a variable instead (eventually a global variable).

Something like:

Code: [Select]

...
var wsBody: widestring;

...
  wsBody:=UTF8Decode(s);
  MailItem.Body:=wsBody;
...


[vks]

Woah.. It worked!!
thank you so much )