منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ahmed salam كتب :اخي الكريم المثال يعمل فقط نسيت علامات التنصيص الرجاء تعديل السطر الي الاتي

كود :

SmtpServer.Host = "smtp.mail.yahoo.com"

اسف جدا علي التأخير

sajad كتب :السلام عليكم

اخي الكريم أي نسخة تستخدم من الvs؟

Osama_Ghareeb كتب :تفضل أخي الكريم أمر الإرسال من حساب ياهو :

كود :

Try
            Dim mail As Net.Mail.MailMessage = New Net.Mail.MailMessage()
            mail.From = New Net.Mail.MailAddress("[color=#ff0000]SenderEmail@yahoo.com[/color]", "[color=#ff0000]Sender Name[/color]")
            mail.To.Add(New Net.Mail.MailAddress("[color=#ff0000]ReceiverEmail@hotmaile.com[/color]"))
            mail.Subject = "[color=#ff0000]Test Message From VB4Arb[/color]"
            mail.Body = "[color=#ff0000]Hello[/color]"
            Dim SmtpServer As New Net.Mail.SmtpClient()
            SmtpServer.Credentials = New Net.NetworkCredential("[color=#ff0000]SenderEmail@yahoo.com[/color]", "[color=#ff0000]Password[/color]")
            SmtpServer.Port = 25
            SmtpServer.Host = "smtp.mail.yahoo.com"
            SmtpServer.EnableSsl = False
            SmtpServer.Send(mail)
            MsgBox("Succeeded")
        Catch ex As Exception
            MsgBox("Error" & " : " & ex.Message)
        End Try

sajad كتب :السلام عليكم

ارفق المشروع للتعديل عليه

لان قد لا توجد بعض الدوال في vs2005 لهذا يظهر لك بعض الاخطاء