me olvide de decir, yo estoy usando el control inet, este es mi codigo:
sUrl = "http://localhost/webreport/pruebamail.php"
sPost = "dest=" & Replace("
[email protected]", "&", "%26") & _
"&asunto=" & Replace("el asunto al " & Format(Date, "dd/mm/yyyy"), "&", "%26") & _
"&msg=" & Replace(Replace("Se adjunta archivo" & vbCrLf , "&", "%26"), vbCrLf, "<BR>") & _
"&departe=" & Replace("
[email protected]", "&", "%26") & _
"&adj=" & sArchivo & _
"&adjn=" & "nombre dek adjunto" & Format(Date, "yyyymmdd") & ".xls" & _
"&nombre=gonzalo"
Inet1.Execute sUrl, "POST"
Do While Inet1.StillExecuting
DoEvents
Loop
sDatos = Inet1.GetChunk(1000024)
Debug.Print sDatos
EnviarEmail = IIf(sDatos = "si", True, False)
If EnviarEmail = False Then
Debug.Print "No se envió"
End If