با سلام و سپاس

خدمت کاربران عزیز سایت یاهو ۹۸ YAHOO

 

امروز براتون تکه کدی رو آماده کردیم که مستقیما ایمیل و متن مورد نطر رو در صفحه ارسال ایمیلتون چاپ میکنه.

امیدوارم مورد قبول واقع گردد.

 

Sub MailTo(StrAddress As String, StrSubject As String, StrBody As String)
'@yahoo98
Dim StrMethod As String = "Sub StartEmailClient(StrSubject As String, StrBody As String)"
Try
Dim StrUri As String
StrUri = "mailto:" & StrAddress & "?subject=" & StrSubject & "&body=" & StrBody
Dim Intent As Intent
Intent.Initialize(Intent.ACTION_VIEW, StrUri)
StartActivity(Intent)
Catch
'If BlnLoudExceptions Then CdException.Show(StrClass, StrMethod, LastException)
LogColor(LastException & " - " & StrMethod, Colors.Magenta)
End Try
End Sub

 

• مثال:

 

MailTo("ایمیل مقصد","عنوان","متن")