Liebes VB Paradise Forum,
ich habe folgendes anliegen und wsl bin ich einfach zu doof das mir die Lösung selbst zu folgendem Thema einfällt. (Ist sicher relativ simpel).
Ich habe in meinem Programm ein Mailsende System das nach einer bestimmt Aktion ausgelöst wird.
Ich möchte allerdings den Text und Betreff (die beide Variablen enthalten) nicht aus dem Programm vorgeben sondern über eine Datenbank.
Das Mailsystem funktioniert einwandfrei!"
Ich benutze dafür MySQLLIB3, und soweit funktioniert das Auslesen aus der Datenbank super. (Im Nachfolgenden Codeschippsel lädt er aus der DB die Tabelle "mailing" und fügt zB SMTP Host und Userdaten hinzu - das funktioniert ohne Probleme.)
Allerdings gibt es Probleme mit dem Betreff & TEXT!
Der Betreff und der Body-Text beinhaltet mehrere Variable die er aber sowie unten angeführt NICHT einsetzt, genauso macht er keine ((vbNewLine)) Absätze und quetscht den Text einfach so raus!
Beispiel des Betreffs sieht dann Leider so aus: "Störung angelegt" & " - " & kurzbeschreibung.Text & " - Ticketnummer #" & incidentnummer.Text
Wie Formatiere ich einen DB Eintrag so, das er den Text richtig ausgibt?
Betreff:
Bodytext:
Bitte um eure Unterstützung.
ich habe folgendes anliegen und wsl bin ich einfach zu doof das mir die Lösung selbst zu folgendem Thema einfällt. (Ist sicher relativ simpel).
Ich habe in meinem Programm ein Mailsende System das nach einer bestimmt Aktion ausgelöst wird.
Ich möchte allerdings den Text und Betreff (die beide Variablen enthalten) nicht aus dem Programm vorgeben sondern über eine Datenbank.
Das Mailsystem funktioniert einwandfrei!"
Ich benutze dafür MySQLLIB3, und soweit funktioniert das Auslesen aus der Datenbank super. (Im Nachfolgenden Codeschippsel lädt er aus der DB die Tabelle "mailing" und fügt zB SMTP Host und Userdaten hinzu - das funktioniert ohne Probleme.)
Allerdings gibt es Probleme mit dem Betreff & TEXT!
Der Betreff und der Body-Text beinhaltet mehrere Variable die er aber sowie unten angeführt NICHT einsetzt, genauso macht er keine ((vbNewLine)) Absätze und quetscht den Text einfach so raus!
Beispiel des Betreffs sieht dann Leider so aus: "Störung angelegt" & " - " & kurzbeschreibung.Text & " - Ticketnummer #" & incidentnummer.Text
VB.NET-Quellcode
- 'Mail Versand! Datenbank ID 1
- rc = db.Query("SELECT * FROM mailing WHERE id = 1")
- Dim Msg As New MailMessage
- Dim myCredentials As New System.Net.NetworkCredential
- myCredentials.UserName = rc.Row(0).Columns("mailuser")
- myCredentials.Password = rc.Row(0).Columns("mailpassword")
- Dim mySmtpsvr As New SmtpClient()
- mySmtpsvr.Host = rc.Row(0).Columns("smtp_host") 'smtp server
- mySmtpsvr.Port = rc.Row(0).Columns("smtp_port")
- mySmtpsvr.UseDefaultCredentials = False
- mySmtpsvr.Credentials = myCredentials
- Try
- Do While idd.Length < 9
- idd = "0" + idd
- Loop
- incidentnummer.Text = "INC" & idd
- Msg.From = New MailAddress(rc.Row(0).Columns("absender_mail"))
- Msg.To.Add(kontaktmail.Text)
- Msg.Bcc.Add(rc.Row(0).Columns("bcc_mail"))
- Msg.Subject = rc.Row(0).Columns("betreff")
- Msg.Body = rc.Row(0).Columns("text")
- mySmtpsvr.Send(Msg)
- 'MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
- incidentnummer.Text = "" & idd
Wie Formatiere ich einen DB Eintrag so, das er den Text richtig ausgibt?
Betreff:
Bodytext:
Bitte um eure Unterstützung.
Nothing to see 
