السؤال مكرر جداً ولم يتم الرد علية

            Dim Msg  As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage("From","To","Subject","Body")
            Dim Smtp As System.Net.Mail.SmtpClient = New System.Net.Mail.SmtpClient("Your Host")
            mm.Send(Msg)

شكرا اخي على المررو السريع

بس مافهمت شي من الكود

غير اني اعرف متغير والباقي 000

ارجوا التوضيح وان تكرمت بأعطائى مثال

والله يوفقنا

يا جماعة أنا متأسف جدأ الظاهر فتل راسي ما عدت أعرف وين قاعد أكتب هذا الكود في الدوت نت

عادي طارق بسيطة

المهم لو عندك واحد بدون الدوت نت يعنى بالفيجوال بيسك

لاتبخل علينا

وآسف

ضع الآتي في موديول

Option Explicit

' by kaled alzeeby alnamer soft

Public Const URL = "http://www.kalednt.8m.com"

Public Const email = "alnamer@saudint.com"

Public 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

Public Const SW_SHOWNORMAL = 1

Public Sub gotoweb()

Dim Success As Long

Success = ShellExecute(0&, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL)

End Sub

Public Sub sendemail()

Dim Success As Long

Success = ShellExecute(0&, vbNullString, "mailto:" & email, vbNullString, "C:\", SW_SHOWNORMAL)

End Sub

لو عايز تبعت إيميل اكتب sendemail

لو عايز تفتح صفحة اكتب gotoweb

طبعا الشيفرة منقولة زي ما انت شايف

تفضل اخي الفاضل

Option Explicit
'send email
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_SHOWNORMAL = 1

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Dim email As String, subj As String, body As String
email = "gaf58@yahoo.com"
subj = "About FavoritesGaf"
body = "'WRITE ME HERE WHAT DO U THINK ABOUT THIS PROGRAM'"
Dim Success As Long

Success = ShellExecute(0&, vbNullString, "mailto:" & email _
& "?subject=" & subj & "&body=" & body, _
vbNullString, "C:\", SW_SHOWNORMAL)
End If

End Sub

تحيــــــــــــاتي

اخي الكريم ... كيف يتم التعامل مع هذا الكود