Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Dateien ermitteln und versenden??
Autor: Testdrive16
Datum: 20.07.04 00:32
Hallo, also ich habe ein echt blödes Problem und habe schon alles versucht aber nichts läuft so wie ich es will. Ich möchte, dass alle Daten in einem Ordner ermittelt werden und diese per Mail versendet werden. Mein Versuch: Bestimmt ist das total einfach, aber ich bin noch ein Anfänger. Nobody is perfekt Wer echt super wenn ihr mir helfen könntet. Dim oMail As New MailMessage Dim Username As String = System.Environment.UserName Dim Datei As Object = "C:\Dokumente und Einstellungen\" & Username & "\Desktop\123\" Dim sPath As String = Datei If sPath.EndsWith("\") And sPath.Length > 3 Then sPath = sPath.Substring(0, sPath.Length - 1) End If Dim oDir As New System.IO.DirectoryInfo(sPath) Dim oFiles As System.IO.FileInfo() = oDir.GetFiles("*.txt") SmtpMail.SmtpServer = "mailto.t-online.de" If FileExists(Datei) Then With oMail .From = "Test@Test.de" .To = "test@test.de" .Subject = "Test" .Body = "Test" .Attachments.Add(New MailAttachment(oFiles)) End With Try SmtpMail.Send(oMail) End Catch oEx As Exception MsgBox("Fehler: " & oEx.Message.ToString) End Try Else MsgBox("Fehler:") End If

Dateien ermitteln und versenden??	762	Testdrive16	20.07.04 00:32
Re: Dateien ermitteln und versenden??	496	FZelle	20.07.04 09:21
Re: Dateien ermitteln und versenden??	471	Testdrive16	20.07.04 09:30
Re: Dateien ermitteln und versenden??	476	FZelle	20.07.04 12:35
Re: Dateien ermitteln und versenden??	458	Testdrive16	20.07.04 12:52
Re: Dateien ermitteln und versenden??	495	Testdrive16	20.07.04 13:11
Re: Dateien ermitteln und versenden??	482	FZelle	21.07.04 10:33

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen