ارسال نشدن ایمیل

[shahan148 27]

سلام به همه

 

چرا با کد زیر ایمیل ارسال نمیشه

#Region  Project Attributes
    #ApplicationLabel: Send Email
    #VersionCode: 1
    #VersionName: 1.0
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: False
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub
Sub Globals
    'These variables can only be accessed from this module.
  Dim StatusSend1 As String
  Dim SMTP As SMTP
  StatusSend1=""
    Private Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)

    Activity.LoadLayout("3")


End Sub

Sub EnviarEMail1
SMTP.Initialize("smtp.gmail.com", 587, "[email protected]", "ehsanban986", "SMTP")
SMTP.UseSSL = True
SMTP.To.Add("[email protected]")
SMTP.Subject = "Asunto del Email"
SMTP.Body = "Cuerpo del mensaje."
'SMTP.AddAttachment(File.DirRootExternal, "elarchivoquequeremosadjuntar")
SMTP.Send
End Sub

Sub SMTP_MessageSent(Success As Boolean)
  If Success=True Then StatusSend1="SI enviado"
  If Success=False Then StatusSend1="NO Enviado"
  Log(StatusSend1)
End Sub

Sub Button1_Click
EnviarEMail1
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

[mohsensa 12]

مشکل از SMTP  جیمیل هست چرا نمیدونم اما با یاهو می فرسته

لطفا سورسی که باهاش میل فرستادی میزاری (یاهو)

[afraz aa 478]

سلام به همه

 

چرا با کد زیر ایمیل ارسال نمیشه

 

 

#Region  Project Attributes

    #ApplicationLabel: Send Email

    #VersionCode: 1

    #VersionName: 1.0

    'SupportedOrientations possible values: unspecified, landscape or portrait.

    #SupportedOrientations: unspecified

    #CanInstallToExternalStorage: False

#End Region

#Region  Activity Attributes

    #FullScreen: False

    #IncludeTitle: False

#End Region

Sub Process_Globals

    'These global variables will be declared once when the application starts.

    'These variables can be accessed from all modules.

End Sub

Sub Globals

    'These variables can only be accessed from this module.

  Dim StatusSend1 As String

  Dim SMTP As SMTP

  StatusSend1=""

    Private Button1 As Button

End Sub

Sub Activity_Create(FirstTime As Boolean)

    Activity.LoadLayout("3")

End Sub

Sub EnviarEMail1

SMTP.Initialize("smtp.gmail.com", 587, "[email protected]", "ehsanban986", "SMTP")

SMTP.UseSSL = True

SMTP.To.Add("[email protected]")

SMTP.Subject = "Asunto del Email"

SMTP.Body = "Cuerpo del mensaje."

'SMTP.AddAttachment(File.DirRootExternal, "elarchivoquequeremosadjuntar")

SMTP.Send

End Sub

Sub SMTP_MessageSent(Success As Boolean)

  If Success=True Then StatusSend1="SI enviado"

  If Success=False Then StatusSend1="NO Enviado"

  Log(StatusSend1)

End Sub

Sub Button1_Click

EnviarEMail1

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

سلام

فکر میکنم من اگه یه جستجو بزنم تو انجمن 100تا تایپک و سورس با این موضوع پیدا کنم 

اول جستجو بفرمایید بعد اگه تو انجمن چیزی نبود سوال بفرمایید 

دقیقا من یه جایی فکر کنم تو بخش آموزش های تصویری آموزش کامل ارسال ایمیل رو گذاشته اند

 

موفق و پیروز باشی

[shahan148 27]

مشکل از SMTP  جیمیل هست چرا نمیدونم اما با یاهو می فرسته

[مهدی ایزدی 9,203]

برای اطمینان بیشتر از کارکرد کتابخانه Net از این نسخه کتابخانه استفاده کنید :

http://answercenter.ir/topic/10661-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-net-%D9%86%D8%B3%D8%AE%D9%87-160-%D8%A2%D9%BE%D8%AF%DB%8C%D8%AA-%D8%A8%D9%87-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-15-%D8%AF%DB%8C-1394/

[shahan148 27]

لطفا سورسی که باهاش میل فرستادی میزاری (یاهو)

 

سلام قسمت جیمیل تغییر بدی درست میشه کد زیر را جایگزین کن

 

        SMTP.Initialize("smtp.mail.yahoo.com", 465, "[email protected]","password" , "SMTP")

        SMTP.UseSSL = True

[mohsensa 12]

سلام قسمت جیمیل تغییر بدی درست میشه کد زیر را جایگزین کن

 

        SMTP.Initialize("smtp.mail.yahoo.com", 465, "[email protected]","password" , "SMTP")

        SMTP.UseSSL = True

سلام ،الان ایمیل میفرسته ولی صفحه مرورگر رو گوشی بازمیشه راهی نداره این صفحه بازنشه ،آخه اکانت ارسال کننده واسه همه قابل رویت هست. 

[shahan148 27]

برای اطمینان بیشتر از کارکرد کتابخانه Net از این نسخه کتابخانه استفاده کنید :

http://answercenter.ir/topic/10661-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-net-%D9%86%D8%B3%D8%AE%D9%87-160-%D8%A2%D9%BE%D8%AF%DB%8C%D8%AA-%D8%A8%D9%87-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-15-%D8%AF%DB%8C-1394/

 

سلام باور کنید زیاد جستجو زدم همه چیز درسته نمیدونم چرا ارسال نمیکنه خودمم کیج شدم لایبری جدید که خودتون قرار دادید استفاده کردم