RecorteX

Este ejemplo usa el app.config

descargar
 
        Dim aConfig As Configuration.ConfigurationSettings
        Try
            Dim MailFrom As New MailAddress(aConfig.AppSettings("EmailFrom"))
            Dim MailTo As New MailAddress(aConfig.AppSettings("EmailTo"))
 
            Dim mailMsg As MailMessage = New MailMessage(MailFrom, MailTo)
 
            mailMsg.IsBodyHtml = True
            mailMsg.Priority = MailPriority.Normal
 
            mailMsg.Subject = "Subject for the mail"
            mailMsg.Body = ReadStringResource("Mail.htm")
 
            Dim SmtpMail As New Net.Mail.SmtpClient
            Dim theCredential As New Net.NetworkCredential("usuario", "contraseña")
            SmtpMail.Credentials = theCredential
            SmtpMail.Host = aConfig.AppSettings("EmailServer")
            SmtpMail.Send(mailMsg)
 
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
 

Muchas veces tenemos tantas aplicaciones y en tantas versiones que no sabemos que o0nda con las que se estan correindo, asi que con este simple renglon podemos poner nombre compañia y version de nuestra aplicacion en el titulo de las forma que queramos. Espero les sea de utilidad.

descargar
 
     Me.Text = My.Application.Info.CompanyName & " - " & My.Application.Info.AssemblyName & " " & My.Application.Info.Version.ToString