Escorpion_Negro
[Mis primeros pasitos]
Registrado: 10 Feb 2016
Mensajes: 1
|
Mie 10 Feb 2016 21:25 |
Enviar correos VB.net 2008 para WinCE |
|
|
Hola estimada Gente.
Es mi primera vez en el foro ya que no tengo experiencia con desarrollo de aplicaciones para PDA con Vb.net 2008 en sistema operativo WinCE, dentro de la rutina de aplicación necesito enviar un correo con la PDA. Tengo dos rutinas para enviar correo pero no puedo hacer que la DPA me envié el correo.
Código: | Imports Microsoft.WindowsMobile.PocketOutlook
Public Class Form1
Private HQPhoneNo As String
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
EnviarCorreo("", "Envio de Correo", "enviando correo de prueba")
EnviarCorreo2()
End Sub
Sub EnviarCorreo2()
Dim Sesion As OutlookSession = New OutlookSession
Dim eMail As EmailMessage = New EmailMessage
Dim Recipiente As New Recipient("micrreo@gmail.com")
'eMail.Attachments.Add(New Attachment(ruta y nombre del fichero a adjuntar))
eMail.To.Add(Recipiente)
eMail.Subject = "Texto del Asunto del Mensaje"
eMail.BodyText = "Cuerpo del Mensaje"
eMail.Send("correo.destino@gmail.com")
'Enviar el correo
Sesion.Dispose()
MessagingApplication.Synchronize("correo.destino@gmail.com")
End Sub
Sub EnviarCorreo(ByVal ficheroAdjunto As String, ByVal Asunto As String, ByVal Cuerpo As String)
Dim Sesion As Microsoft.WindowsMobile.PocketOutlook.OutlookSession = New Microsoft.WindowsMobile.PocketOutlook.OutlookSession
Dim eMail As Microsoft.WindowsMobile.PocketOutlook.EmailMessage = New Microsoft.WindowsMobile.PocketOutlook.EmailMessage
Dim Recipiente As Microsoft.WindowsMobile.PocketOutlook.Recipient = New Microsoft.WindowsMobile.PocketOutlook.Recipient("micorreo@gmail.com")
Try
' eMail.Attachments.Add(New Attachment(ficheroAdjunto))
eMail.To.Add(Recipiente)
eMail.Subject = Asunto
eMail.BodyText = Cuerpo
eMail.Send("correo.destino@gmail.com")
MessagingApplication.Synchronize()
MsgBox("correo.destino@gmail.com")
Catch ex As Exception
MsgBox("Error: " & ex.Message, MsgBoxStyle.OkOnly, "Aviso")
End Try
End Sub
End Class |
[Firma sólo visible para usuarios registrados]
|
|