Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Dim smtpserver As New SmtpClient
Dim mail As New MailMessage
smtpserver.Credentials = New Net.NetworkCredential("XYZ", "XYZ")
smtpserver.Port = 587
smtpserver.Host = "smtp.gmail.com"
smtpserver.EnableSsl = True
mail = New MailMessage
mail.From = New MailAddress("XYZ")
mail.To.Add("XYZ")
mail.Subject = "Hallo"
mail.Body = _
  "X" & ComboBox1.Text & vbCrLf & _
  "Y: " & Space(1) & ComboBox2.Text & vbCrLf & _
  "Z: " & Space(1) & TextBox1.Text
smtpserver.Send(mail)

Visual Basic Quellcode

Imports System.Net.Mail
Imports System.Console
Public Class Form1



	Dim pfad1 As String

	Dim pfad2 As String

	Dim pfad3 As String

	Dim pfad4 As String



	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    	Button1.Enabled = False


	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    	Dim smtpserver As New SmtpClient

    	Dim mail As New MailMessage

    	Dim Anhang As New Attachment(txtpfad1.Text)
    	mail.Attachments.Add(Anhang)
    	Dim Anhang2 As New Attachment(txtpfad2.Text)
    	mail.Attachments.Add(Anhang2)
    	Dim Anhang3 As New Attachment(txtpfad3.Text)
    	mail.Attachments.Add(Anhang3)
    	Dim Anhang4 As New Attachment(txtpfad4.Text)
    	mail.Attachments.Add(Anhang4)


    	smtpserver.Credentials = New Net.NetworkCredential(txtEmail.Text, txtPW.Text)

    	smtpserver.Port = lblport.Text

    	smtpserver.Host = lblhost.Text

    	smtpserver.EnableSsl = True

    	mail = New MailMessage

    	mail.From = New MailAddress(txtEmail.Text)


    	mail.To.Add(txtFirma.Text)

    	mail.Subject = txtBegriff.Text

    	mail.Body = TxtText.Text




    	smtpserver.Send(mail)

	End Sub

	Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

    	Button1.Enabled = True
    	lblhost.Text = "smtp.gmail.com"
    	lblport.Text = "587"

	End Sub


	Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

    	Button1.Enabled = True
    	lblhost.Text = "mail.gmx.net"
    	lblport.Text = "587"



	End Sub


	Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

    	Button1.Enabled = True
    	lblhost.Text = "smtp.live.com"
    	lblport.Text = "587"



	End Sub

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


    	OpenFileDialog1.ShowDialog()
    	pfad1 = OpenFileDialog1.FileName

    	txtpfad1.Text = pfad1


	End Sub


	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

    	OpenFileDialog2.ShowDialog()
    	pfad2 = OpenFileDialog2.FileName

    	txtpfad2.Text = pfad2
	End Sub

	Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

    	OpenFileDialog3.ShowDialog()
    	pfad3 = OpenFileDialog3.FileName

    	txtpfad3.Text = pfad3
	End Sub

	Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    	OpenFileDialog4.ShowDialog()
    	pfad4 = OpenFileDialog4.FileName

    	txtpfad4.Text = pfad4
	End Sub
End Class