ارسال ایمیل در ارتباط با ما

[pejman 24]

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

اشتباه کجاست؟

Sub btnmail_click

If txtname.Text ="" Then
Msgbox("لطفا نام خود را وارد کنید","خطا")
Return
End If
If txtmail.Text = "" OR txtmail.Text.Contains("@") = False Then
Msgbox("لطفا ایمیل معتبر وارد کنید","خطا")
Return
End If
If txtpm.Text = "" Then
Msgbox("لطفا متن پیام خود را وارد کنید","خطا")
Return
End If
Dim peji As Email
peji.To.Add("[email protected]")
peji.Subject = "new massege from" & txtname.Text & "via email" & txtmail.Text
peji.Body = txtpm.Text
StartActivity(peji.GetIntent)
ToastMessageShow("پیام ارسال شد",False)
End Sub

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

درود

Gmail یا Email توی گوشی خودتون ثبت کردید که ارسال رو انجام بده؟ *fekr*

روی گوشی تست کنید

[pejman 24]

سلام بله جیمیل رو گوشیم هست

روگوشی تست زدم جواب نداد متاسفانه

اصلا هیچ کاری انجام نمیده باتونه