SendMail

02/04/2009 - 12:14 von Armin Poschauko | Report spam
Imports System.Net.Mail


Private Sub sendeMail()
Dim msgTo As New MailAddress(cZielMail, cZielName)
Dim msgFrom As New MailAddress("fmg@fmg.com.pl", "FMG International.A.")
Dim msgAtt As New Attachment(cDestPfad & cNeuDat)
Dim msg As New System.Net.Mail.MailMessage(msgFrom, msgTo)
Dim server As New SmtpClient
msg.IsBodyHtml = False
msg.IsBodyHtml = True
msg.Body = "Wettbewerbsliste : " & cAbrMon.Substring(4, 2) & "/" &
cAbrMon.Substring(0, 4)
msg.Subject = "Wettbewerbsliste : " & cAbrMon.Substring(4, 2) & "/" &
cAbrMon.Substring(0, 4)
msg.Priority = MailPriority.High
msg.ReplyTo = msgFrom
msg.Attachments.Add(msgAtt)
server.Host = 192.168.17.25
server.Port = 25
Try
'Send the message
server.Send(msg)
Catch e As System.Exception
MessageBox.Show(e.ToString)
Finally
msg.Dispose()
msg = Nothing
msgFrom = Nothing
msgTo = Nothing
server = Nothing
msgAtt = Nothing
End Try

End Sub
 

Lesen sie die antworten

#1 Stefan Falz [MVP]
02/04/2009 - 13:18 | Warnen spam
Hallo Armin,

"Armin Poschauko" schrieb:

Imports System.Net.Mail
...



gibt's da auch eine Frage dazu oder hast Du dich nur in der NG vertan?

server.Host = 192.168.17.25



Das kann aber nicht funktionieren, da fehlen die Anführungszeichen "..." :)

Tschau, Stefan
Microsoft MVP - Visual Developer ASP/ASP.NET
http://www.asp-solutions.de/ - Consulting, Development
http://www.aspnetzone.de/ - ASP.NET Zone, die ASP.NET Community

Ähnliche fragen