Como enviar correo interno

[andrews_84]

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

[gogupe]

Cuando dices de correo internamente, a que te refieres?.

Tienes montado un servidor de correo en tu pc?

¿como envía correo internamente sin visual basic?

Saludos

[gogupe]

De todas formas, el ejemplo que tu has hecho sirve perfectamente para enviar correos, y en este caso también llegará a los correos que tenga en tu red lan

Si te explicaras un poco mejor ...

[andrews_84]

Gracia pero ya solucione mi problema
lo unico que habia que hacer era poner la direccion de correo que maneja la intranet con un usuario y una contraseña valida y listo
ejem:
199.***.**.** en este caso sirve como servidor smtp
[email protected] usuario
mkfdgkl contraseña