12/07/2006, 16:28
|
 | | | Fecha de Ingreso: junio-2006 Ubicación: Torreón, México
Mensajes: 21
Antigüedad: 18 años, 6 meses Puntos: 0 | |
| Private Sub cmdSend_Click()
ShellExecute hwnd, _
"open", _
"mailto:" & txtTo.Text & _
"?cc=" & txtCc.Text & _
"&bcc=" & txtBcc.Text & _
"&subject=" & txtSubject.Text & _
"&body=" & Replace(txtMessage.Text, vbCrLf, _
"%0D%0A"), _
vbNullString, vbNullString, _
SW_SHOW
End Sub
consulta los comandos del mailto para más detalles
__________________
If you want to know the answers, then u gotta ask the questions
Última edición por Eärandir; 12/07/2006 a las 16:34 |