رفتن به مطلب
  • 0

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


shahan148

سوال

سلام به همه

 

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

#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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

7 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام به همه

 

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

 

 

#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تا تایپک و سورس با این موضوع پیدا کنم 

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

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

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

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

 

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

        SMTP.UseSSL = True

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

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

        SMTP.UseSSL = True

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...