Njaa jag kan inte så mycket om sql och sånt där... Men jag lyckades ju fixa det med att det skickas till mitt gmail nästan lika bra :P
Kod:
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.Net
Imports System.Net.Mail
Imports System.Net.Mime
Imports System.Threading
Public Class Form1
Dim mailSent As Boolean = False
Public Function SendMail() As Long
Dim msg As New MailMessage()
msg.To.Add("[email protected]")
msg.From = New MailAddress("[email protected]", "MITT NAMN", System.Text.Encoding.UTF8)
msg.Subject = "123"
'msg.SubjectEncoding = System.Text.Encoding.UTF8
msg.Body = "DETTA ÄR MITT EMAIL MEDDELANDE"
msg.BodyEncoding = System.Text.Encoding.UTF8
msg.IsBodyHtml = False
msg.Priority = MailPriority.High
'Lägg till inloggningsuppgifter
Dim client As New System.Net.Mail.SmtpClient
client.Credentials = New System.Net.NetworkCredential("[email protected]", "MITT_LÖSENORD")
client.Port = 587 '//eller använd 587
client.Host = "smtp.gmail.com"
client.EnableSsl = True
Dim userState As Object = msg
client.SendAsync(msg, userState)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SendMail()
End Sub
End Class