'_____________________________________________________________________________
		'E-Mail versenden
    	Private Sub Senden()
        	Dim oMail As New MailMessage()
		    ' SMTP-Server
		    SmtpMail.SmtpServer = "mailto.btx.dtag.de"
		    With oMail
		      	' Absender
		      	.From = txtFrom.Text
		      	' Empfänger
		      	.To = txtTo.Text
		      	' Weitere Empfänger
		      	.Cc = txtCC.Text
		      	' Unsichtbare weitere Empfänger
            	.Bcc = txtBCC.Text
            	' Betreff
		      	.Subject = txtSubject.Text
		      	' Nachricht
		      	.Body = txtBody.Text
		      	' Anlagen
		      	' .Attachments.Add(New MailAttachment("Dateiname"))
				Select Case Me.cboPriority.SelectedIndex
            		Case 0
             		.Priority = MailPriority.Low
            		Case 1
                	                     .Priority = MailPriority.Normal
            		Case 2
                		.Priority = MailPriority.High
            	End Select
		    End With
		    Try
		    	SmtpMail.Send(oMail)
		      	MessageBox.Show("Nachricht wurde versandt.")
		    	Catch oEx As Exception
		      		MessageBox.Show("Fehler: " & oEx.Message.ToString)
		    End Try
 
	    End Sub