• Regolamento Macrocategoria DEV
    Prima di aprire un topic nella Macrocategoria DEV, è bene leggerne il suo regolamento. Sei un'azienda o un hosting/provider? Qui sono anche contenute informazioni per collaborare con Sciax2 ed ottenere l'accredito nella nostra community!

Problema risolto sender email (vb8)

funnygame123

Utente Assiduo
Autore del topic
8 Giugno 2009
664
57
Miglior risposta
0
guardando una guida su sciax2 ho provato a creare un mail sender scrivendo rispettivamente questi codici nel buttom con i relativi textbox, label ecc...

Imports System.Net.Mail

Public Class Form1

Dim mymailmessage As New MailMessage()
Try
mymailmessage.From = New MailAddress(TextBox4.Text)
mymailmessage.To.Add(TextBox1.Text)
mymailmessage.Subject = TextBox2.Text
mymailmessage.Body = TextBox3.Text
Dim SMTP As New SmtpClient("SMTP.live.com")
SMTP.Port = 25
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("*****@hotmail.com/it", "PswMail")
SMTP.Send(mymailmessage)
Catch ex As Exception
End Try




facendo il test con la mia email (hotmail) l'email nn me la invia
 
guardando una guida su sciax2 ho provato a creare un mail sender scrivendo rispettivamente questi codici nel buttom con i relativi textbox, label ecc...

Imports System.Net.Mail

Public Class Form1

Dim mymailmessage As New MailMessage()
Try
mymailmessage.From = New MailAddress(TextBox4.Text)
mymailmessage.To.Add(TextBox1.Text)
mymailmessage.Subject = TextBox2.Text
mymailmessage.Body = TextBox3.Text
Dim SMTP As New SmtpClient("SMTP.live.com")
SMTP.Port = 25
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("*****@hotmail.com/it", "PswMail")
SMTP.Send(mymailmessage)
Catch ex As Exception
End Try




facendo il test con la mia email (hotmail) l'email nn me la invia



Prova con altre e-mail...
Hotmali è più lento e a volte non arrivano proprio le e-mail.
 
prova cosi

prova cosi
Imports System.Net
Imports System.Net.Mail
Public Class Form1
Dim mymail As New MailMessage
e poi scrivi nel button per inviare
mymail.From = New MailAddress(TextBox1.Text)
mymail.To.Add(New MailAddress(TextBox2.Text))
mymail.Subject = (TextBox4.Text)
mymail.Priority = MailPriority.Low
Dim Smtp As New SmtpClient
Smtp.Host = (TextBox5.Text)
Smtp.Send(mymail)
MsgBox("E-mail inviata con successo!"):yo:
 
il codice è sbagliato, non definire porta eccetera, nemmeno i credentials :S
 
guardando una guida su sciax2 ho provato a creare un mail sender scrivendo rispettivamente questi codici nel buttom con i relativi textbox, label ecc...

Imports System.Net.Mail

Public Class Form1

Dim mymailmessage As New MailMessage()
Try
mymailmessage.From = New MailAddress(TextBox4.Text)
mymailmessage.To.Add(TextBox1.Text)
mymailmessage.Subject = TextBox2.Text
mymailmessage.Body = TextBox3.Text
Dim SMTP As New SmtpClient("SMTP.live.com")
SMTP.Port = 25
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("*****@hotmail.com/it", "PswMail")
SMTP.Send(mymailmessage)
Catch ex As Exception
End Try




facendo il test con la mia email (hotmail) l'email nn me la invia

Utilizza Il CDO se vuoi utilizzare questo metodo funziona solo per i gmail