اضافه کردن Attechment به برنامه ارسال ایمیل

[Vb1471]

سلام دوستان من با این کد :

کد PHP:
<?php
if (isset($_REQUEST['To']))
{
$to = $_REQUEST['To'] ;
$subject = $_REQUEST['Subject'] ;
$message = $_REQUEST['Message'] ;
$headers = 'From: ' . $_REQUEST['From'] ;
if(mail($to, $subject, $message, $headers))
{
echo "SENT!";
}
else
{
echo "NO!";
}
}
else
{
echo "NO!";
}
?>
و کدهای وی بی برنامه ارسال email رو نوشتم که با winsock کار میکنه حالا میخوام قسمت Attachment هم براش

بزارم ولی نه کد php و نه کدی که برای ویژوال هست میدونم ممنون میشم کسی کمک کنه .

اینم کد کامپونت Mail :

کد PHP:
Option Explicit
Const Host = "Addresse Host"
Const Location = "/mail.php"
Public From As String
Public Who As String
Public Subject As String
Public Message As String
Public Event OnSent(Status As String)

Public Sub Send()
Winsock1.Close
Winsock1.Connect Host, 80
RaiseEvent OnSent("Connecting...")
End Sub



Private Sub UserControl_Initialize()

End Sub

Private Sub Winsock1_Connect()
Dim Headers As String
Dim Query As String
Query = "To=" & Who & "&From=" & From & "&Subject=" & Subject & "&Message=" & Message
Headers = Headers & "POST " & Location & " [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]" & vbCrLf
Headers = Headers & "Host: " & Host & vbCrLf
Headers = Headers & "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14" & vbCrLf
Headers = Headers & "Content-Type: application/x-[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]" & vbCrLf
Headers = Headers & "Content-Length: " & Len(Query) & vbCrLf
Headers = Headers & "Connection: Close" & vbCrLf & vbCrLf
Headers = Headers & Query

Winsock1.SendData Headers
RaiseEvent OnSent("Sending...")

End Sub





Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s As String
Winsock1.GetData s

If InStr(1, s, "SENT!") Then RaiseEvent OnSent("Mail Sent to " & Who)
If InStr(1, s, "NO!") Then RaiseEvent OnSent("Mail Not Sent!")
End Sub