تبلیغات :
ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
دستگاه جوجه کشی حرفه ای
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




صفحه 2 از 3 اولاول 123 آخرآخر
نمايش نتايج 11 به 20 از 30

نام تاپيک: فرستادن ايميل

  1. #11
    پروفشنال
    تاريخ عضويت
    Jul 2006
    محل سكونت
    گیلان _ رشت
    پست ها
    635

    پيش فرض

    سلام دوست عزيز ...
    دستتون درد نكنه ولي نتونستم نصبش كنم ...
    موقع كامپايل Error می ده ...
    این عکس رو نگاه کنید ...
    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
    تا حالا موقع نصب کامپوننت با این Error برخورد نکرده بودم و نمی دونم به خاطر چیه ...
    شما یه بار با دلفی 7 امتحان کنید ببینید نصب می شه ...
    بازم ازتون تشکر می کنم ...
    موفق باشید ...

  2. #12
    آخر فروم باز soldier's Avatar
    تاريخ عضويت
    May 2006
    پست ها
    2,505

    پيش فرض

    سلام
    دنبال تقاضاي شما هستم.
    حتمآ خبرشو بهت مي دم.
    فقط اينجا رو ترك نكن كه نتيجه بگيري.ممنون

  3. #13
    آخر فروم باز soldier's Avatar
    تاريخ عضويت
    May 2006
    پست ها
    2,505

    پيش فرض

    سلام
    تبريك مي گم.يه چيزايه بدرد به خوري پيدا كردم.
    3 Labels:
    Altere as propriedades Caption respectivamente para: (Para, Assunto, Mensagem)

    2 Edits
    Altere as propriedades Name respectivamente para:(edtPara, edtAssunto);
    Apague o conteúdo das propriedades Text;

    1 ListBox
    Altere a propriedade Name para:(lbxAnexos)

    1 Componente Memo
    Altere a propriedade Name para:(mmMensagem);
    Apague o conteúdo da propriedade lines.

    3 Componentes Bitbtn
    Altere as propriedades Caption respectivamente para:(Anexar,Enviar,Fechar)
    Altere as propriedades Name respectivamente para:(btAnexar,btEnviar,btFechar)

    Agora insira um componente OpenDialog da palheta Dialogs
    Altere a propriedade Name para:(odAnexos)

    Insira um componente IdMessage, da palhete Indy Misc
    Configure a propriedades From|Address com o email do remetente e From|Name com o
    nome do remetente
    Altere a propriedade Name para:(IdMessage)

    Insira um componente IdSMTP da palheta IndyClients
    Configure as propriedades Host com o endereço IP ou o DNS do servidor de email,
    por exemplo: smtp.uol.com.br
    Configure as propriedades Password e Username, para se autenticar no servidor,
    caso seja necessário.
    Altere a propriedade name para:(IdSMTP)

    Agora vamos aos códigos:

    No evento onclick do botão btAnexos:
    procedure TForm1.btAnexarClick(Sender: Tobject);
    begin
    if odAnexos.Execute then
    lbxAnexos.Items.Add(odAnexos.FileName);
    end;

    No evento onclick do botão btFechar:
    procedure TForm1.btFecharClick(Sender: Tobject);
    begin
    Application.Terminate;
    end;

    No evento onclick do botão btEnviar:

    procedure TForm1.btEnviarClick(Sender: TObject);
    var Anexo : Integer;
    begin
    IdMessage.Recipients.EMailAddresses := edtPara.Text;
    IdMessage.Subject := edtAssunto.Text;
    IdMessage.Body := mmMensagem.Lines;

    //Manipulando os Anexos
    for Anexo := 0 to lbxAnexos.Items.Count-1 do
    TIdAttachment.Create(idmessage.MessageParts, TFileName(lbxAnexos.Items.Strings[Anexo]));

    IdSMTP.Connect;
    try
    IdSMTP.Send(IdMessage);
    finally
    IdSMTP.Disconnect;
    end;
    Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
    MB_ICONINFORMATION + MB_OK);
    end;

  4. #14
    آخر فروم باز soldier's Avatar
    تاريخ عضويت
    May 2006
    پست ها
    2,505

    پيش فرض

    سلام
    اين پست رو زدم كه با قبلي اشتباه نشه.
    يه آدرس هم دارم كه مي توني كمپننت در اين مورد دانلود كني.
    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

  5. #15
    پروفشنال
    تاريخ عضويت
    Jul 2006
    محل سكونت
    گیلان _ رشت
    پست ها
    635

    پيش فرض

    سلام ...
    دستتون درد نکنه ، شرمنده کردید ...
    امتحان می کنم و اگه به مشکلی برخوردم همینجا مطرح می کنم ...
    در ضمن اون سایت ژاپنی بود و من چیزی ازش نفهمیدم !!
    اگه خود لینک کامپوننت رو بزارید ممنون می شم ...
    بازم ازتون تشکر می کنم ...
    موفق باشید ...

  6. #16
    آخر فروم باز soldier's Avatar
    تاريخ عضويت
    May 2006
    پست ها
    2,505

    پيش فرض

    سلام
    نيازي به نوشته ها نداري.
    پايين سايت به راحتي لينك
    دانلود رو مي توني ببيني
    اگر هم خواستي مي توني بگو
    كه خودم يه لينك بدم خدمتتون

  7. #17
    پروفشنال
    تاريخ عضويت
    Jul 2006
    محل سكونت
    گیلان _ رشت
    پست ها
    635

    پيش فرض

    بازم سلام ...
    متاسفانه نتونستم پيداش كنم !! ، اگه لينك دانلودش رو بزاريد ممنون مي شم ...
    با تشكر ...
    موفق باشيد ...

  8. #18

  9. #19
    پروفشنال
    تاريخ عضويت
    Jul 2006
    محل سكونت
    گیلان _ رشت
    پست ها
    635

    پيش فرض

    سلام دوست من ...
    از زحماتتون متشكرم ...
    آخر نتونستم دانلودش كنم ... ( چندتا رو دانلود كردم ولي اوني كه مي خواستم نبودن )
    به نظر من همون كدهايي كه اول نوشته بودم درستن ( چون تا حالا هر نمونه اي ديدم از همين كدها استفاده مي كرد )
    ولي مشكل اصلي براي قسمت هاست است ...
    براي سرويس هاتميل نام هاست را بايد چي وارد كنم ؟؟ ( يعني سرور ايميل دهنده هاتميل آدرسش چيه ؟ )
    يه سئوال ديگه هم داشتم ...
    آيا دلفي 7 كامپوننتي داره كه بشه سرور رو پيدا كرد ( مثلا يه سايت بهش بدي و اون سرور اصليش رو پيدا كنه )
    فكر كنم منظورم رو فهميده باشيد ... ( مثلا سرور ايميل ياهو آدرسش '' MX1.Mail.Yahoo.com '' هست )

  10. #20
    آخر فروم باز soldier's Avatar
    تاريخ عضويت
    May 2006
    پست ها
    2,505

    پيش فرض

    سلام
    چي شد ؟ درست شد؟
    اگر هنوز نتونستي كه دانلودش كني بگو

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •