Outlook express'e bilgi aktarma

[AliRiza]

Arkadaşlar outlook express'e delphi formdaki verileri nasıl aktarırım.
Shellapi ile mail adresi gönderilip outlook açılıyor.Benim istediğim bilgileride aktarmak bunun için ne yapabilirim..

[AliRiza]

Arkadaşlar outlook shellexecute ile bilgileri ve mesajı aşağıda gördüğünüz biçimde aktardım.

Kod: Tümünü seç

 em_subject := 'Enquiry';
 em_body := 'Contact person:'+xpedit1.Text+chr(13);
 phone :='Phone:'+xpedit2.Text+chr(13);
 em_mail := 'mailto:info@deneme.com?subject=' +
   em_subject + '&body=' + em_body;

 ShellExecute(Handle,'open',
   PChar(em_mail), nil, nil, SW_SHOWNORMAL);

Yalnız arkadaşlar burada em_mailde body ile bilgiler yan yana geliyor.
Benim istediğim forumdan aktarılan bazı bilgilerin alt alta olması.
Bunun için aşağıdaki şekilde (ascii karekter setini kullanıp alt alta olması için enter'in ascii kodunu ekledim) kullandım yine olmadı.

Kod: Tümünü seç

 em_body := 'Contact person:'+xpedit1.Text+chr(13)
+'Phone:'+xpedit2.text+chr(13)+'Adresse'+xpedit3.text;

xpeditten gelen bilgilerin outlook express'te alt alta olması için ne yapabilirim.
Ayrıda outlook express otomatik olarak istediğim dosyanın mesajda olduğı gibi ekde gelmesini nasıl sağlayabilrim.[/quote]

[hbahadir]

Outlook express ' e ekli dosya göndermek üzerinde bende çok araştırma yaptım. Ama bir sonuca ulaşamadım ensonunda

Kod: Tümünü seç

sendkeys('Rapor', [vk_menu,ord('E'),vk_return]);

ile direkt olarak menüsünü açıp ekleri o şekilde gönderdim.

Hüseyin BAHADIR

[AliRiza]

Bahadır hocam sendkey bir fonksiyon mu.ben sizin yazdığınız deyimi direkt kullanmak istedim.Yalnız undeclarit(tanımlanmamış değişken) hatası aldım.Kullanımı hakkında bilgi verebilirmisiniz?

[hbahadir]

pardon , function ' u göndermemişim...

Kod: Tümünü seç

function  SendKeys(ClassOrCaption:PChar;Keys:array of Integer):Boolean;
var
  hW:HWND;
  Ix:Integer;
begin
  hW:=FindWindow(ClassOrCaption,nil);
  if hW<=0 then hW:=FindWindow(nil,ClassOrCaption);
  Result:=hW>0;
  if Result then begin
    Result:=SetForeGroundWindow(hW);
    if not Result then Exit;
    for Ix:=0 to High(Keys) do KeyBd_Event(Keys[Ix], 0, 0, 0);
    for Ix:=High(Keys) downto 0 do Keybd_Event(Keys[Ix], 0, KEYEVENTF_KEYUP, 0);
  end;
end;

Kolay gelsin
Hüseyin BAHADIR