ارسال ایمیل

[mostafa.kasiri 115]

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

 

 

Sub button1_Click
If EditText1.Text = "" Then
ToastMessageShow("لطفا نام و نام خانوادگی را وارد کنید",True)
Return
End If


If EditText2.Text = "" Then
ToastMessageShow("لطفا عنوان را کنید",True)
Return
End If


If EditText3.Text = "" Then
ToastMessageShow("لطفا متن نوشته را بنویسید",True)
Return
End If


Dim p1 As SendMail
p1.To.Add("[email protected])                    به این ایراد میگیره
p1.subject = "ایمیل از" &EditText1.Text & "--" & EditText2.Text
p1.body = EditText3.Text
StartActivity(p1.getintent)




End Sub

 

[mostafa.kasiri 115]

حل شد مشکل از کتابخانه بود

[RoyaPM 538]

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

[mostafa.kasiri 115]

اقا نیشه بگین چی کار کنم

؟؟؟؟؟؟؟؟

کدی که شما دادید که فرقی نکرد؟

[RoyaPM 538]

شما تو کدتون در آخر ایمیل یه " نزاشتید