Archived

This topic is now archived and is closed to further replies.

ELS1

MIME header help.

Recommended Posts

I am working on a POP Mail Suite...i have everything working EXCEPT 1 thing. I am able to send files with MIME headers/encoding, but hte problem is that i cannot send text to make it show in the body portion of the email. it works fine when i dont attatch a file. here is some portion of my code
Socket.SendData "FROM: " & TrimALL(txtFake.Text) & Chr$(13) & Chr$(10)
    Socket.SendData "TO: " & TrimALL(AddressBook.Text) & Chr$(13) & Chr$(10)
    Socket.SendData "SUBJECT: " & txtSubject.Text & Chr$(13) & Chr$(10)
    Socket.SendData "Mime-Version: 1.0" & Chr$(13) & Chr$(10)
    Socket.SendData "Content-Type: multipart/mixed; boundary=" & Chr(34) & "NextMimePart" & Chr(34) & vbNewLine
    Socket.SendData "This is a multi-part message In MIME format." & vbNewLine
    
    Socket.SendData "--NextMimePart" & Chr(34) & vbNewLine
    
    ''Socket.SendData txtBody.Text & vbNewLine
    
    ''Socket.SendData "--NextMimePart" & Chr$(13) & Chr$(10)
    

    
    Call SendMimeAttachment(lblFilename.Caption)
    Status.Caption = "Uploading File . . ."
    Temp = vbCrLf + "--NextMimePart" + vbNewLine
    Temp = Temp + "Content-Type: text/plain; charset=us-ascii" + Chr(34) + vbNewLine
    Socket.SendData txtBody.Text & vbNewLine
 
here is the Send Attatchment header code
  Temp = vbCrLf + "--NextMimePart" + vbNewLine
  Temp = Temp + "Content-Type: application/octet-stream; name=" + Chr(34) + lblFilename.Caption + Chr(34) + vbNewLine
  Temp = Temp + "Content-Transfer-Encoding: base64" + vbNewLine
  Temp = Temp + "Content-Disposition: attachment; filename=" + Chr(34) + lblFilename.Caption + Chr(34) + vbNewLine
  Socket.SendData Temp & vbCrLf
 
what am i doing wrong?????? how can i make it send text along with the file? thanks a lot

Share this post


Link to post
Share on other sites