Mailen über VB

1stBoot

Grünschnabel
Hallo zusammen,

ich bin noch ein ziemlicher Neuling in der Programmierung.
Habe jetzt mit VB.NET angefangen und habe folgendes Problem.

Ich habe da einen Code, der mir erlaubt über VB eine Mail zu versenden.
Dieser sieht so aus:

Dim oMail As New MailMessage()

SmtpMail.SmtpServer = "smtp.test.de"

With oMail
.From = "absender@test.de"

.To = "empfänger@test.de@"

' Betreff
.Subject = "Test-Nachricht"

' Nachricht
.Body = "Dies ist eine Test-Nachricht"

' Anlagen
' .Attachments.Add(New MailAttachment("Dateiname"))
End With

Try
SmtpMail.Send(oMail)
MsgBox("Nachricht wurde versandt.")

Catch oEx As Exception
MsgBox("Fehler: " & oEx.Message.ToString)

End Try
End Sub

Jetzt habe ich das Problem, dass der sptmServer eine Authentifizierung benötigt, was ja auch gut ist. Mein Code ist somit jedoch Schwachsinn.
Oder?

Gibt es eine Möglichkeit VB zu sagen:

Benutzer = "test"
passwd = "test"

?

Hoffe mir kann jemand helfen.
Danke schonmal.

Gruß
1stBoot
 
Code:
Dim mail As New MailMessage()
   mail.To = "me@mycompany.com"
   mail.From = "you@yourcompany.com"
   mail.Subject = "this is a test email."
   mail.BodyFormat = MailFormat.Text
   mail.Body = "Some text goes here"
   mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
   mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", txtUSERNAME.Text)
   mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", txtUSERPASSWD.Text)
   SmtpMail.SmtpServer = txtSMTPSERVER.Text
   SmtpMail.Send(mail)
 
Hallo Norbert,

danke für die schnelle Antwort.
Ich glaube ich bin noch ein wenig zu unerfahren für das ganze.
VB markiert mir nämlich mail.Fields als Fehler.

Fields is not a member of System.Web.MailMessage

Was hat das zu bedeuten?

Danke!
 
Hallo ,

arbeitest du mit NET 1.0 oder 1.1.
SMTP Authentifizierung wird nämlich erst seit .NET 1.1 unterstützt.

Jens
 
Zurück