mswinsock.winsock, adjuntar archivo?
Publicado por sergio (737 intervenciones) el 20/05/2009 16:21:32
Como hago para adjuntar un archivo en el owindsock
tengo este codigo que envia correctamente un mail pero nose como hacer para adjuntar un archivo, mepodrian decir como
Gracias
oWinsock = CREATEOBJECT("mswinsock.winsock")
oWinsock.Protocol = 0 && 0=TCP , 1=UDP
oWinsock.RemoteHost = servidor && pones la ip o el nombre del servidor
oWinsock.RemotePort = 25 oWinsock.Connect
=Inkey(.25)
oWinsock.senddata("DATA " + crlf)
oWinsock.senddata("FROM: " + mUsuMail + crlf)
oWinSock.senddata("TO: "+ SUBSTR(lcMailTo,1,LEN(lcMailTo)-1) + IIF(!EMPTY(mUsuMail),';' + mUsuMail,"")+ crlf)
oWinsock.senddata("SUBJECT: " + lcSubject + crlf)
oWinsock.senddata(crlf + lcMessageText + crlf)
=Inkey(.25)
tengo este codigo que envia correctamente un mail pero nose como hacer para adjuntar un archivo, mepodrian decir como
Gracias
oWinsock = CREATEOBJECT("mswinsock.winsock")
oWinsock.Protocol = 0 && 0=TCP , 1=UDP
oWinsock.RemoteHost = servidor && pones la ip o el nombre del servidor
oWinsock.RemotePort = 25 oWinsock.Connect
=Inkey(.25)
oWinsock.senddata("DATA " + crlf)
oWinsock.senddata("FROM: " + mUsuMail + crlf)
oWinSock.senddata("TO: "+ SUBSTR(lcMailTo,1,LEN(lcMailTo)-1) + IIF(!EMPTY(mUsuMail),';' + mUsuMail,"")+ crlf)
oWinsock.senddata("SUBJECT: " + lcSubject + crlf)
oWinsock.senddata(crlf + lcMessageText + crlf)
=Inkey(.25)
Valora esta pregunta


0