Ayuda E-Mail
Publicado por Frankit0 (1 intervención) el 29/11/2009 04:38:19
buenas!
Aca tengo codigo fuente para enviar un e-mail a travez de visual basic, pero tengo un pequeño problema.
Cuando lo ejecuto, me aparese una ventana de Windows preguntandome el Nombre que quiero que el destinatario resiva y la dirección de e-mail a la que el destinatario me responderia, el problema es ese... no quiero que aparezca esa ventana.
Podría alguien ayudarme por favor?
Imagen de la Aplicación:
http://img30.imageshack.us/img30/4153/dibujodcu.jpg
Codigo Fuente:
[code]Private Sub badjuntar_Click()
With cd
.ShowOpen
If .FileName = "" Then
Exit Sub
End If
lbadjunto = .FileName
End With
End Sub
Private Sub benviar_Click()
lbadjunto = ""
With Sesion
.NewSession = False
.SignOn
.UserName = "Hacking"
End With
With Mensaje
.SessionID = Sesion.SessionID
'Crear Mensaje
.Compose
'Asunto
.MsgSubject = tasunto
'Contenido del Mensaje
.MsgNoteText = tmensaje
'Mail Destinatario
.RecipDisplayName = tdestinatario
'Archivo Adjunto
If lbadjunto <> "" Then
.AttachmentPathName = lbadjunto
End If
'Enviar Correo
.Send False
End With
Sesion.SignOff
End Sub[/code]
Espero puedan ayudarme, Saludos!!
Aca tengo codigo fuente para enviar un e-mail a travez de visual basic, pero tengo un pequeño problema.
Cuando lo ejecuto, me aparese una ventana de Windows preguntandome el Nombre que quiero que el destinatario resiva y la dirección de e-mail a la que el destinatario me responderia, el problema es ese... no quiero que aparezca esa ventana.
Podría alguien ayudarme por favor?
Imagen de la Aplicación:
http://img30.imageshack.us/img30/4153/dibujodcu.jpg
Codigo Fuente:
[code]Private Sub badjuntar_Click()
With cd
.ShowOpen
If .FileName = "" Then
Exit Sub
End If
lbadjunto = .FileName
End With
End Sub
Private Sub benviar_Click()
lbadjunto = ""
With Sesion
.NewSession = False
.SignOn
.UserName = "Hacking"
End With
With Mensaje
.SessionID = Sesion.SessionID
'Crear Mensaje
.Compose
'Asunto
.MsgSubject = tasunto
'Contenido del Mensaje
.MsgNoteText = tmensaje
'Mail Destinatario
.RecipDisplayName = tdestinatario
'Archivo Adjunto
If lbadjunto <> "" Then
.AttachmentPathName = lbadjunto
End If
'Enviar Correo
.Send False
End With
Sesion.SignOff
End Sub[/code]
Espero puedan ayudarme, Saludos!!
Valora esta pregunta


0