دانلود نرم افزار ، گرافیک – علی بزرگ

اگر شما هم به زبان ویژوال بیسیک برنامه می نویسید ممکن است هنگام طراحی برنامه هایتان و به خصوص طراحی پنجره درباره (About) این سوأل برایتان پیش آمده که چگونه می توانید برنامه پیش فرض ارسال ایمیل را اجرا کنید و نشانی ایمیل خودتان و موضوع (Subject) مورد نظر را در پنجره مربوط به ارسال ایمیل درج کنید…

استفاده از این کد نه تنها برنامه شما را حرفه ای جلوه می دهد بلکه بسیار مفید هم هست زیرا شما هنگام دریافت ایمیل با مشاهده عنوان براحتی متوجه محتویات آن ایمیل خواهید شد.

برای استفاده از این کد در ویژوال بیسیک۶ کافیست کد های مربوطه را در قسمت هایی که در ادامه شرح داده می شود قرار دهید.

ابتدا کد زیر را قسمت General فرمتان (قسمت کدنویسی ابتدای کدها) قرار دهید:

Private Declare Function ShellExecute Lib “shell32.dll” Alias _
“ShellExecuteA” (ByVal hWnd As Long, ByVal lpOperation As String _
, ByVal lpFile As String, ByVal lpParameters As String, ByVal _
lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 1

کد زیر هم در هرکجای صفحه (قسمت کدنویسی) که مایل هستید قرار دهید:

Public Sub Navigate(ByVal NavTo As String)
Dim hBrowse As Long
hBrowse = ShellExecute(0&, “open”, NavTo, “”, “”, SW_SHOW)
End Sub

تا اینجای کار توابع موردنظرمان رافراخوانی کرده ایم،اینک می خواهیم با کلیک برروی یک دکمه صفحه ارسال ایمیل ظاهر شود،البته با مشخصاتی که ما تعیین می کنیم.
پرای انجام اینکار یک کد زیر استفاده می کنیم:

Private Sub Command1_Click()
Navigate “mailto:contact@alibozorg.com?subject=” & _
“ALIBOZORG Developer&body=” & “Peyghame Shoma…”
End Sub

به طور پیش فرض ما مشخصات خودمان را دراین کد قرار داده ایم ، شما می توانید کد بالا را مطابق با خواسته خود تغییر دهید.

مطالب مرتبط: