07/09/2009, 14:54
|
| | | Fecha de Ingreso: septiembre-2009 Ubicación: colombia
Mensajes: 10
Antigüedad: 14 años, 8 meses Puntos: 0 | |
 Como enviar correo interno
Hola a todos
tengo una aplicacion en visual 6.0 que envia correo externamente de esta manera
For h = 0 To UBound(vecrep)
With sendmail1
'Valida SMTP
.SMTPHostValidacion = VALIDATE_HOST_NONE
'Valida la sintaxis de l cuenta
.ValidarEmail = VALIDATE_SYNTAX
.Delimitador = ";"
.FromDisplayName = infEmail(4)
.SMTPHost = infEmail(0)
.Remitente = infEmail(3)
.Destinatario = Trim(vecrep(h))
.asunto = asunto
.mensaje = asunto
.Adjunto = Trim(direccion & rut(1) & "M" & SESSION1 & "." & vrc(7))
.Prioridad = Alta
.UsarLoginSMTP = True
.Usuario = infEmail(1)
.Password = infEmail(2)
.Codificacion = MIME_ENCODE
.EnviarEmail
End With
Next
pero necesito enviar correo internamente
por favor necesito ayuda |