Outlook üzerinden mail gönderme

[tuna]

Arkadaşlar merhaba.
Outlook üzerinden mail göndermek istiyorum basit anlamda olacak bir türlü örnek kod bulamadım.
Indy ile değil ama yanlış anlaşılmasın.
Kullanıcı yazdığım programdan nir tuşa basacak içine benim istediğim ek dosyayı ataç edecek ve karşısına outlook'un mail gönderme ekranı gelecek hepsi bu.
Bulduğum örnek kodlar ile bir türlü beceremedim.


Yardımınız için şimdiden teşekkürler.

[SmokingFrog]

Merhabalar,
Buldugunuz ornek kodları, hali hazirda var ise kendi kodlarinizi paylasir misiniz, yardimci olmaya calisalim.

[skalkan]

Kod: Tümünü seç

function IsObjectActive(ClassName: string): Boolean;
var
  ClassID: TCLSID;
  Unknown: IUnknown;
begin
  try
    ClassID := ProgIDToClassID(ClassName);
    //Result  := GetActiveObject(ClassID, nil, Unknown) = S_OK;
   Result  :=CLSIDFromProgID(PWideChar(WideString(ClassName)), ClassID) = S_OK
  except
    // raise;
    Result := False;
  end;
end;
procedure DisplayMail(Address, Subject, Body: string; Attachment: TFileName);
var
  Outlook: OleVariant;
  Mail: Variant;
const
  olMailItem = $00000000;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  Mail := Outlook.CreateItem(olMailItem);
  Mail.To := Address;
  Mail.Subject := Subject;
  Mail.Body := Body;
  if Attachment <> '' then
    Mail.Attachments.Add(Attachment);
  Mail.Display;
end;

Kullanımı;

if IsObjectActive('Outlook.Application') then
    begin
    DisplayMail(Address, Subject, Body,Attachment:);
    end
    else
    begin
      ShowMessage('outlook Application not found');
    end;

[tuna]

@skalkan çok teşekkür ederim. Verdiğiniz kod çalıştı ve işimi gördü.