كيفية ارسال ايميل

ان شاء الله مايكون سؤالي صعب :(

2

uses ShellAPI;
var
  pCh: PChar;
begin
  pCh := 'mailto:Dhack@21cn.com?subject=your_subject&body=your_body';
  ShellExecute(0, 'open', pCh, nil, nil, SW_SHOWNORMAL);
end;

أو بإستخدام OLE

procedure SendOutlookMail;
const
  olMailItem = 0;
var
  Outlook: OleVariant;
  vMailItem: variant;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  vMailItem := Outlook.CreateItem(olMailItem);
  vMailItem.Recipients.Add('Dhack@21cn.com');
  vMailItem.Subject := 'test email';
  vMailItem.Body := 'This is a test';
  vMailItem.Attachments.Add('C:\MyText.txt');
  vMailItem.Send;

  VarClear(Outlook);
end

شكرا جزيلا اخي DeltaAziz :)

ساجرب الكود واقول اللي حصل معاي

جزاك الله خير

شكرا لك اخي دلتا واريد ان اسأل سؤال على اجاباتك

في الاجابة الأولى: هل يمكن ان نضيف Attach file في البارمترات المذكورة؟ وكيف يتم ذلك

في الاجابة الثانية: هل يمكن ان اقوم بفتح الرسالة قبل الارسال

اي قبل Send هل يوجد تابع لفتح الرسالة لقراءتها قبل ارسالها

الاجابة على احد السؤالين تكفي!!

لانني اريد ان احصل على ميزة اضافة ملف و فتح الرسالة لقراءتها قبل الأرسال

و شكرا

pCh := 'mailto:Dhack@21cn.com?subject=your_subject&body=your_body&file="c:\waeldalol.rar"'

هل قمت بتجربتها!!

هناك خطأ ما في الكود الذي كتبت حيث يعطيني الرسالة التالية

موجودة في المرفق

ارجوا رؤيتها و شكرا

ماذا حصل اخي دلتا؟؟!!

أخي waeldalol

جربتها على MS Office Outlook ولم تعمل...

كخيار أخر يمكنك إستخدام MAPI

The_Delphi_Magazine_issue_60___Delphi_And_Email.rar

شكرا جزيلا لك اخي دلتا على المساعدة

لقد عملت 100%

ولكنني مستغرب كثير من المصادر التي تجمع منها هذه المعلومات فلقد بحث كثير في الانترنت و لم اجد

شيئ يفيدني

ما شاء الله عنك موسوعة :lol: :lol:

اقتباس

فلقد بحث كثير في الانترنت و لم اجد

عليك بموقع من عالم Oz SearchLores

شكرا كتير الله يعطيكم العافية عالشرح

ما هي طريقه ارسال ايميل من غير ما يوقفه الانتي فيرس

انا بحثت عن طريقه لارسال ايميل و وجدت الكثير ولكن كلما احاول ارسال ايميل لا يعمل بسبب ان الانتي فيرس عندي يوقفه

انا اعرف هذه الطريقه اليس هناك طريقه للارسال باستخدام الديلفي فقط

عزيزي

لارسال ميل دون ان يكشفه الانتي فايروس!!!

لا تقم بالارسال مباشرة من الجهاز -هذا رأيي عن خبرة-

أولا انا اقوم بمساعدتك فقط للعلم ولا اسامحك ان اسغليت هذا فيما يغضب الله

تستطيع عمل موقع لك مجاني على لايكوس مثلا او اي موقع شرط ان يكون به تخديم لل php

وبالدلفي فقط تضع webbrowser وتعمل navigate لصفحة ال php الني بموقعك التي منها سترسل الميل وتكون على اقل تقدير تحوي فقط الدالة

mail($to,$sub,$msg,from:$from)

وانت من اللفي عن طريق المنهج post تمرر لها المتحولات الاربع او أقل

تحتاج لخبرة ضئييييييييييييييلة بphp لكي تحقق المطلوب

والبراوزنغ لا يتفحصة الانتي فايروس

لكن ممكن ان يكون الموقع لايكوس محجوب مثلا عند أحدهم فتعمل كذا موقع بنفس الصفحات وممكن بالبراوزنغ تتفحص الtitle للصفحة لتتأكد انها فتحت اي غير محجوبة

بهذا استطيع مساعدنك!

ممكن هالينك يساعدك شوي

/index.php?showtopic=108345

السلام عليكم

بعد البحث و جت هذا الكود

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TTEST = class(TForm)
	Mem: TMemo;
	test: TButton;
	stat: TLabel;
	em: TEdit;
	Label1: TLabel;
	Memo1: TMemo;
	Edit1: TEdit;
	Label2: TLabel;
	Label3: TLabel;
	Edit2: TEdit;
	procedure testClick(Sender: TObject);
  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

var
  TEST: TTEST;

implementation
uses
Email;


{$R *.dfm}

procedure TTEST.testClick(Sender: TObject);
VAR
  I  : Boolean;
  SMTP : TSMTPEngine;
BEGIN
stat.Caption :='------';
//Memo1.Clear;
mem.Clear;
SMTP:=TSMTPEngine.Create;
SMTP.Subject:= Edit2.Text;
SMTP.Body:= Memo1.Text;
SMTP.From:=Edit1.Text;
SMTP.Recip:= em.Text;
I:=SMTP.SendEmail;
SMTP.Free;
IF I THEN
begin
	stat.Caption:='--Êã ÇáÅÑÓÜÜÇá ÈäÌÇÍ --'	 ;
  end
  else
   stat.Caption:='--ÎØà Ýí ÇáÇÊÕÜÇá--'	 ;
end;

end.

و قمت بتجربته و نجح فى ارسال الرساله

ولكن المشكله كيف يمكن ارسال معه ملف( Attachment)

و الارسال يكون فى (Inbox ) بدل من ( Bulk )

وشكراا