كود ارسال ايميل بالvb

عندي الكود بس ما يشتغل

ممكن تعطيني كود الارسال كامل

و اذا عندك كود اسال ملف مرفق اتمنى تعطيني اياه

In a form put

Mapi session object = MapiSess

MapiMsg object = MapiMsg

CheckBox = Check1

CommandButton = cmdSend

Private Sub cmdSend_Click()

With MapiSess

.UserName = "Amit" 'Your Profile Name

.DownLoadMail = False

.NewSession = True

.SignOn

End With

With MapiMsg

.SessionID = MapiSess.SessionID

.Compose

.AddressResolveUI = True

.RecipDisplayName = "amitmore@vsnl.com" 'Receipent's Email Address

.ResolveName

.MsgSubject = "DownLoads" 'Subject of Mail

.MsgNoteText = "Attaching File" 'Message to Send

If MsgBox("Do u want To Send Mail... ?? ", vbYesNo + vbQuestion, "Confirm Send") = vbYes Then

If Check1.Value = 1 Then

.Send (True)

Else

.Send

End If

End If

End With

MapiSess.Action = mapSignOff

End Sub

شكراً على الرد السريع

لكن هذا الكود يستعين بـ OutLock Express

و انا اريد كود يستخدم WinSock فقط

جزاك الله الف خير

شكرا على المعلومات القيمه و نتمنى المزيد

Winsock1.SendData "MAIL FROM:" & text2 & vbNewLine

Winsock1.SendData "RCPT TO:" & Text3 & vbNewLine

Winsock1.SendData "DATA" & vbNewLine

Dim MSG As String

MSG = "From:" & Text2 & vbNewLine & "Date: " & _

Now & vbNewLine & "To:" & Text3 & vbNewLine & _

"Subject: " & Text4 & vbNewLine & vbNewLine & _

Text5 & vbNewLine

Winsock1.SendData MSG

Winsock1.SendData vbNewLine & vbNewLine & "." & vbNewLine & vbNewLine