求教懂邮件的大侠,这个winsock发邮件，我要实现加附件要怎么写？想加个自定义的回复到(reply to)地址又怎
求教懂邮件的大侠,这个winsock发邮件，我要实现加附件要怎么写？想加个自定义的"回复到(reply to)"地址又怎么写呢?
要实现加附件要怎么写？
想加个自定义的"回复到(reply to)"地址又怎么写呢？
白菜一个.
- VB code
Private Sub My_Date(ss As String)Dim T As LongDim StrT As StringDim Txt_Type As StringT = Val(Left(ss, 3))Select Case int_BSCase 1 If T = 220 Then Win1.SendData "HELO <" & Win1.LocalIP & ">" & vbCrLf int_BS = int_BS + 1 Else Timer1_Timer End IfCase 2 If T = 250 Then Win1.SendData "MAIL FROM:<" & EmlFrom & ">" & vbCrLf Text1.SelText = "MAIL FROM:<" & EmlFrom & ">" & vbCrLf int_BS = int_BS + 1 Else Timer1_Timer End IfCase 3 If T = 250 Then Win1.SendData "RCPT TO:<" & EmlStr & ">" & vbCrLf Text1.SelText = "RCPT TO:<" & EmlStr & ">" & vbCrLf int_BS = int_BS + 1 Else Timer1_Timer End IfCase 4 If T = 250 Then Win1.SendData "DATA" & vbCrLf Text1.SelText = "DATA" & vbCrLf int_BS = int_BS + 1 Else Timer1_Timer End IfCase Else Select Case T Case 354 If Check1.Value > 0 Then Txt_Type = "text/html" Else Txt_Type = "text/plain" End If StrT = "Date:" & Now & vbCrLf & "From:" & EmlFrom & vbCrLf & "To:" & EmlStr & vbCrLf StrT = StrT & "Subject:" & Text2.Text & vbCrLf StrT = StrT & "Mime-Version: 1.0" & vbCrLf & "Content-Type:" & Txt_Type & "; charset=GB2312" & vbCrLf If Check2.Value > 0 Then StrT = StrT & "Disposition-Notification-To:" & EmlFrom & vbCrLf StrT = StrT & vbCrLf & Text4.Text Win1.SendData StrT Text1.SelText = StrT Win1.SendData vbCrLf & "." & vbCrLf Text1.SelText = vbCrLf & "." & vbCrLf & vbCrLf' Sleep 1000 int_BS = int_BS + 1 Case 250 Win1.SendData "QUIT" & vbCrLf Text1.SelText = "Quit" & vbCrLf Case 221 int_BS = 1 S_OK = True Timer1_Timer Case Else Timer1_Timer End SelectEnd SelectEnd SubPrivate Sub Timer1_Timer()Command5.Enabled = TrueTimer1.Enabled = FalseIf S_OK = True Then MsgBox "发送成功！", vbInformationElse MsgBox "发送失败：" & DataStr, vbCriticalEnd IfIf Win1.State > 0 Then Win1.CloseEnd Sub
[解决办法]
额，给你发个程序的链接吧，这里面有附件的功能，你自己看看。http://download.csdn.net/detail/wolaix/4089777
http://download.csdn.net/detail/wolaix/4089772