ساخت دکمه ارسال ایمیل

[rezaz مهمان]

سلام 

 

تو تماس با ما میخوام یه دکمه بسازم که با زدن روی اون فرد بتونه بهم ایمیل بده :|

 

امیدوارم منظورمو فهمیده باشید ! اگه نه بگید بیشتر توضیح بدم

 

اگه کسی میتونه کمک کنه ممنون

[mehdi1376 44]

من که از این کد استفاده کردم که بعد از انتخاب یک برنامه پیام رسان فقط داخل فیلد گیرنده آدرس ایمیل ما هست

Email1.To.Add("ایمل شما")
StartActivity(Email1.GetIntent)

[arastooms 1,046]

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

دوستان اطلاعی دارند؟

[پژمان نیکروان 6,055]

سلام.

اینو یه نگاه بنداز ببین به کارت میاد؟

http://answercenter.ir/topic/1795-%D9%86%DB%8C%D8%A7%D8%B2-%D8%A8%D9%87-%D8%B3%D9%88%D8%B1%D8%B3-%D8%A7%D8%B1%D8%B3%D8%A7%D9%84-%D8%A7%DB%8C%D9%85%DB%8C%D9%84/

[sshayan 0]

ببخشید 

سورسی هست که مثلا  بیاد بدین شکل باشه که 

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

[aloneboy7617 155]

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("ersal")
  
    If FirstTime Then 
        SMTP.Initialize("smtp.gmail.com", 587, "ایمیلت", "رمز ایمیلت", "SMTP")' دراینجا ایمیل و پسورد خود حساب جیمیلتان را وارد کنید . ولی اگه کسی برنامه رو دیکامپایل کرد دیگه ائنوقت به حسابتون دسترسی داره
        SMTP.StartTLSMode = True
    End If
	EditMessege.Gravity=Gravity.RIGHT
	SpinnerTextAbout.AddAll(Array As String("نظرات","انتقاد","پیشنهاد"))
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub ButtonSend_Click

	SendEmailSub
	If   EditMessege.Text="" Or EditUserName.Text="" Or EditEmail.Text="" Then
	Msgbox("لطفا تمام قسمتها رو پر کنید","توجه")
	End If
End Sub

Sub SendEmailSub

	If CheckBox1.Checked = True Then 'اگر چک باکس چک خورده بود یه رونوشت هم به ایمیل خود کاربر میفرسته
    	SMTP.To.Add("[email protected]")'  ایمیل خود را وارد کنید
		SMTP.BCC.Add(EditEmail.Text)
	Else
		SMTP.To.Add("[email protected]")'  ایمیل خود را وارد کنید
	End If
	
    SMTP.Subject = ""&EditUserName.Text 'Name USER EditUserName.text
    SMTP.Body = "نظر:  " &EditEmail.Text &CRLF& "ایمیل:  "&EditUserName.Text &CRLF& "نام: "&EditMessege.Text &CRLF& "نظر:  " &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 

فک کنم این کارتو راه بندازه