Hallo zusammen,
nachdem ihr mir letztens so gut helfen konntet wende ich mich mit einer neuen Frage an euch: (ok besser mit zwei Fragen)
Ich habe einen Code, welcher mir aus einer RDP-Verbindung den Hostname ausliest und in der Variable "GetWTSQueryHost" speichert.
Soweit funktioniert das auch klasse.
Aber wenn ich innerhalb eines E-Mail Bodys (SMTP) versuche auf diese GetWTSQueryHost zuzugreifen, schneidet der mir die E-Mail ab:
Nach dem Aufruf durch "Hauptfenster.GetWTSQueryHost(-1)" war es das - der Rest fehlt.
Ich habe schon versucht, diesen Aufruf in einen String zu packen und auszulesen, ob GetWTSQueryHost einen Wert liefert und wenn ja, tcl_hostname.text durch den Inhalt aus GetWTSQueryhost zu ersetzen:
Zwar zeigt er mir so alle Informationen an, allerdings spuckt er dann nur noch "nicht vorhanden" aus - obwohl ein Wert vorliegt.
Was mache ich falsch?
Zur zweiten Frage:
In meinem Formular hat der Benutzer die Möglichkeit, eine Datei auszuwählen, die als Anhang an die Mail gefügt wird.
in der Msg.Attachment.New sieht es wie folgt aus:
Nun läuft es aber auf eine Fehlermeldung heraus, wenn der Benutzer keine Datei anhängt. (Kann die Datei ... OpenFileDialog1 nicht finden...)
Also hab ich auch da eine Abfrage durchgeführt:
..
..
myserver.send(msg)
Jetzt ist zwar die Fehlermeldung weg, allerdings öffnet der nach dem Klick auf den "Senden"-Button automatisch das OpenFileDialog1. Erst wenn ich dort dann auf abbrechen drücke, funktioniert es und er sendet die E-Mail ohne Anhang.
Ideen?
Lieben Dank,
Matthias aka Pindoyu
nachdem ihr mir letztens so gut helfen konntet wende ich mich mit einer neuen Frage an euch: (ok besser mit zwei Fragen)
Ich habe einen Code, welcher mir aus einer RDP-Verbindung den Hostname ausliest und in der Variable "GetWTSQueryHost" speichert.
Soweit funktioniert das auch klasse.
Aber wenn ich innerhalb eines E-Mail Bodys (SMTP) versuche auf diese GetWTSQueryHost zuzugreifen, schneidet der mir die E-Mail ab:
VB.NET-Quellcode
- Msg.Body = ("Folgender Problembericht wurde von " & Environment.UserName & " übermittelt:" & vbNewLine & Problembeschreibung_input.Text & vbCrLf & vbNewLine & vbCrLf & "Daten zur verwendeten Hardware: " & vbCrLf & vbCrLf & "Computername / Hostname / ggf. ThinClient-Server: " & Environment.MachineName & " " & vbNewLine & " / ThinClient-Hostname: " & [color=#ff6600]Hauptfenster.GetWTSQueryHost(-1)[/color] & vbCrLf & "Benutzername: " & Environment.UserName & vbCrLf & OSinhalt & vbCrLf & vbNewLine & vbCrLf & "Laufwerke: " & vbCrLf & vbCrLf & tmplocaldriinhalt & vbNewLine & vbNewLine & "Netzwerk: " & vbCrLf & vbNewLine & tmpipinhalt & vbNewLine & tmpmacinhalt & vbNewLine & vbNewLine & vbNewLine & "Drucker:" & vbNewLine & vbNewLine & tmpprintinhalt)
Nach dem Aufruf durch "Hauptfenster.GetWTSQueryHost(-1)" war es das - der Rest fehlt.
Ich habe schon versucht, diesen Aufruf in einen String zu packen und auszulesen, ob GetWTSQueryHost einen Wert liefert und wenn ja, tcl_hostname.text durch den Inhalt aus GetWTSQueryhost zu ersetzen:
Zwar zeigt er mir so alle Informationen an, allerdings spuckt er dann nur noch "nicht vorhanden" aus - obwohl ein Wert vorliegt.
Was mache ich falsch?
Zur zweiten Frage:
In meinem Formular hat der Benutzer die Möglichkeit, eine Datei auszuwählen, die als Anhang an die Mail gefügt wird.
VB.NET-Quellcode
- Public Sub datei_anhaengen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles datei_anhaengen.Click
- Anhang_laden()
- End Sub
- Public Sub Anhang_laden()
- If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
- Dim dateiname As String = IO.Path.GetFileName(OpenFileDialog1.FileName)
- Dim kurztext As String = dateiname.Substring(0, 7)
- OpenFileDialog1.Multiselect = False
- Dim Anhangsdatei As String = OpenFileDialog1.FileName
- anhang_text.Text = "Anhang: " & kurztext & "..."
- End If
- End Sub
in der Msg.Attachment.New sieht es wie folgt aus:
Nun läuft es aber auf eine Fehlermeldung heraus, wenn der Benutzer keine Datei anhängt. (Kann die Datei ... OpenFileDialog1 nicht finden...)
Also hab ich auch da eine Abfrage durchgeführt:
..
..
myserver.send(msg)
Jetzt ist zwar die Fehlermeldung weg, allerdings öffnet der nach dem Klick auf den "Senden"-Button automatisch das OpenFileDialog1. Erst wenn ich dort dann auf abbrechen drücke, funktioniert es und er sendet die E-Mail ohne Anhang.
Ideen?
Lieben Dank,
Matthias aka Pindoyu