اینتنت ارسال ایمیل

[amirsafari 116]

سلام دوستان کسی اینتنت ارسال ایمیل رو داره؟؟؟

[amirjun32 105]

سلام دوستان کسی اینتنت ارسال ایمیل رو داره؟؟؟

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

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

Sub Process_Globals
	Dim SMTP As SMTP

End Sub

Sub Globals

	Dim ButtonSend As Button
	Dim EditEmail As EditText
	Dim EditMessege As EditText
	Dim EditUserName As EditText

	Dim string1 As String
	Private CheckBox1 As CheckBox

	Private EditTextmobile As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("MainLayout")

	
    
        SMTP.Initialize("smtp.mail.yahoo.com", 587, "mahiban_group@yahoo.com", "password ro vared kon", "SMTP")' دراینجا ایمیل و پسورد خود حساب جیمیلتان را وارد کنید . ولی اگه کسی برنامه رو دیکامپایل کرد دیگه ائنوقت به حسابتون دسترسی داره
        SMTP.StartTLSMode = True
    
End Sub



Sub ButtonSend_Click

	SendEmailSub

End Sub

Sub SendEmailSub

	If CheckBox1.Checked = True Then 'اگر چک باکس چک خورده بود یه رونوشت هم به ایمیل خود کاربر میفرسته
    	SMTP.To.Add("mahiban_group@yahoo.com")'  ایمیل خود را وارد کنید
		SMTP.BCC.Add(EditEmail.Text)
	Else
		SMTP.To.Add("mahiban_group@yahoo.com")'  ایمیل خود را وارد کنید
	End If
	
    SMTP.Subject = ""&EditUserName.Text 'Name USER EditUserName.text
    SMTP.Body = "ایمیل فرستنده:" &EditEmail.Text &CRLF& "نام کاربر:"&EditUserName.Text &CRLF& "متن پیام"&EditMessege.Text &CRLF& "pm:" &string1
	
	
    SMTP.Send
	ProgressDialogShow("درحال ارسال پیغام شما")
	
End Sub

Sub SMTP_MessageSent(Success As Boolean)
    Log(Success)
	
    If Success  Then
		ProgressDialogHide
        ToastMessageShow("پیغام شما با موفقیت ارسال شد", True)
    Else
		ProgressDialogHide
        ToastMessageShow("خطای ارسال پیغام", True)
        Log(LastException.Message)
    End If
End Sub