Du bist nicht eingeloggt.

Login

Pass

Registrieren

Community
Szene & News
Locations
Impressum

Forum / Bits und Bytes

VB 2008 Datenanhang in E-Mail

FaR_CrY
Champion (offline)

Dabei seit 11.2008
3898 Beiträge
Geschrieben am: 19.02.2009 um 22:31 Uhr

Hallo,

hab in VB 2008 ein kleines Mailprogramm geschrieben. So sieht es jetz aus:

Imports System.Net
Imports System.Net.Mail
Public Class Form13
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim email As String
email = RichTextBox1.Text

Dim myclient As New Net.Mail.SmtpClient("smtp.web.de")

If TextBox1.Text = "" Then
MsgBox("Bitte geben Sie einen gültigen Absender ein!", MsgBoxStyle.Critical)
Else
If TextBox2.Text = "" Then
MsgBox("Bitte geben Sie einen gültigen Empfänger ein!", MsgBoxStyle.Critical)
Else
If TextBox3.Text = "" Then
MsgBox("Bitte geben Sie einen Betreff an!", MsgBoxStyle.Critical)
Else
If RichTextBox1.Text = "" Then
MsgBox("Bitte geben Sie eine Nachricht ein!", MsgBoxStyle.Critical)
Else
If CheckBox2.Checked = False Then
myclient.Credentials = New NetworkCredential(TextBox1.Text, "PASSWORT")
myclient.Send(TextBox1.Text, TextBox2.Text, TextBox3.Text, email)
MsgBox("Die E-Mail wurde erfolgreich abgeschickt!", MsgBoxStyle.Information)
TextBox2.Text = ""
TextBox3.Text = ""
RichTextBox1.Text = ""
CheckBox2.Checked = False
Me.Close()
End If
If CheckBox2.Checked = True Then
myclient.Credentials = New NetworkCredential(TextBox1.Text, "PASSWORT")
myclient.Send(TextBox1.Text, TextBox2.Text, TextBox3.Text, email + vbCrLf + vbCrLf + vbCrLf + "Visitenkarte des Absenders: " + vbCrLf + "Name: " + vbCrLf + "Adresse: " + vbCrLf + "Telefonnummer: " + vbCrLf + "Sonstiges: ")
MsgBox("Die E-Mail wurde erfolgreich abgeschickt!", MsgBoxStyle.Information)
TextBox2.Text = ""
TextBox3.Text = ""
RichTextBox1.Text = ""
CheckBox2.Checked = False
Me.Close()
End If
End If
End If
End If
End If
End Sub



So und nun möchte ich aber noch nen Dateianhang machen, dass man bilder etc mitschicken kann. Wie geht das??
FaR_CrY
Champion (offline)

Dabei seit 11.2008
3898 Beiträge
Geschrieben am: 19.02.2009 um 22:43 Uhr

Zitat von Shoryuken:

nukular?


????
animator - 46
Profi (offline)

Dabei seit 11.2005
458 Beiträge

Geschrieben am: 20.02.2009 um 09:27 Uhr
Zuletzt editiert am: 20.02.2009 um 09:29 Uhr

public static void CreateMessageWithAttachment(string server)
{
// Datei die gesendet werden soll
// Hier die Datei Data.xls
// Muss sich im aktiven Verzeichnis befinden
string file = "data.xls";
// Nachricht erstellen und Empfänger hinzufügen
MailMessage message = new MailMessage(
"name1@test.com",
"name2@test.com",
"Text der Betreffzeile",
"Normaler Text hier");

// Dateianhang für die Mail erstellen
Attachment data = new Attachment(file, MediaTypeNames.Application.Octet);
// Time Stamp für die Datei erstellen
ContentDisposition disposition = data.ContentDisposition;
disposition.CreationDate = System.IO.File.GetCreationTime(file);
disposition.ModificationDate = System.IO.File.GetLastWriteTime(file);
disposition.ReadDate = System.IO.File.GetLastAccessTime(file);
// Datei an die Nachricht hängen sollte auch mit Variable gehen
message.Attachments.Add(data);
//Datei senden
SmtpClient client = new SmtpClient(server);
// Credentials für den SMTP Server
client.Credentials = CredentialCache.DefaultNetworkCredentials;
client.Send(message);
// Anzeige
ContentDisposition cd = data.ContentDisposition;
Console.WriteLine("Content disposition");
Console.WriteLine(cd.ToString());
Console.WriteLine("File {0}", cd.FileName);
Console.WriteLine("Size {0}", cd.Size);
Console.WriteLine("Creation {0}", cd.CreationDate);
Console.WriteLine("Modification {0}", cd.ModificationDate);
Console.WriteLine("Read {0}", cd.ReadDate);
Console.WriteLine("Inline {0}", cd.Inline);
Console.WriteLine("Parameters: {0}", cd.Parameters.Count);
foreach (DictionaryEntry d in cd.Parameters)
{
Console.WriteLine("{0} = {1}", d.Key, d.Value);
}
data.Dispose();
}


Vielleicht hilft dir das?!

Freiheit schützt man nicht indem man sie abschafft!

FaR_CrY
Champion (offline)

Dabei seit 11.2008
3898 Beiträge
Geschrieben am: 20.02.2009 um 10:17 Uhr

Zitat von animator:

public static void CreateMessageWithAttachment(string server)
{
// Datei die gesendet werden soll
// Hier die Datei Data.xls
// Muss sich im aktiven Verzeichnis befinden
string file = "data.xls";
// Nachricht erstellen und Empfänger hinzufügen
MailMessage message = new MailMessage(
"name1@test.com",
"name2@test.com",
"Text der Betreffzeile",
"Normaler Text hier");

// Dateianhang für die Mail erstellen
Attachment data = new Attachment(file, MediaTypeNames.Application.Octet);
// Time Stamp für die Datei erstellen
ContentDisposition disposition = data.ContentDisposition;
disposition.CreationDate = System.IO.File.GetCreationTime(file);
disposition.ModificationDate = System.IO.File.GetLastWriteTime(file);
disposition.ReadDate = System.IO.File.GetLastAccessTime(file);
// Datei an die Nachricht hängen sollte auch mit Variable gehen
message.Attachments.Add(data);
//Datei senden
SmtpClient client = new SmtpClient(server);
// Credentials für den SMTP Server
client.Credentials = CredentialCache.DefaultNetworkCredentials;
client.Send(message);
// Anzeige
ContentDisposition cd = data.ContentDisposition;
Console.WriteLine("Content disposition");
Console.WriteLine(cd.ToString());
Console.WriteLine("File {0}", cd.FileName);
Console.WriteLine("Size {0}", cd.Size);
Console.WriteLine("Creation {0}", cd.CreationDate);
Console.WriteLine("Modification {0}", cd.ModificationDate);
Console.WriteLine("Read {0}", cd.ReadDate);
Console.WriteLine("Inline {0}", cd.Inline);
Console.WriteLine("Parameters: {0}", cd.Parameters.Count);
foreach (DictionaryEntry d in cd.Parameters)
{
Console.WriteLine("{0} = {1}", d.Key, d.Value);
}
data.Dispose();
}


Vielleicht hilft dir das?!


Ehmmmm das ist C# ?!?!?!

Ich rede aber von Visual Basic :-D
McPommes - 51
Experte (offline)

Dabei seit 09.2006
1422 Beiträge
Geschrieben am: 20.02.2009 um 10:59 Uhr

Zitat von FaR_CrY:


Ehmmmm das ist C# ?!?!?!
Ich rede aber von Visual Basic :-D

Dann setzt es um. Sollte doch kein Problem sein.


*** diese Fusszeile verschwendet 45 Bytes ***

FaR_CrY
Champion (offline)

Dabei seit 11.2008
3898 Beiträge
Geschrieben am: 20.02.2009 um 14:40 Uhr

Zitat von McPommes:

Zitat von FaR_CrY:


Ehmmmm das ist C# ?!?!?!
Ich rede aber von Visual Basic :-D

Dann setzt es um. Sollte doch kein Problem sein.


Wie???
McPommes - 51
Experte (offline)

Dabei seit 09.2006
1422 Beiträge
Geschrieben am: 20.02.2009 um 15:08 Uhr
Zuletzt editiert am: 20.02.2009 um 15:09 Uhr

Ich kann kein VB, aber wenn du es kannst, weißt du ja wie die Syntax aussieht. Die Klassen heißen sehr wahrscheinlich gleich, wie man ein neues Objekt erzeugt weißt du, wie man Methoden aufruft auch.
Und das Beispiel zeigt dir ja immerhin schon ein paar Klassen, mit denen du weitersuchen kannst. In der Hilfe sind auch Beispiele für VB drin.



*** diese Fusszeile verschwendet 45 Bytes ***

animator - 46
Profi (offline)

Dabei seit 11.2005
458 Beiträge

Geschrieben am: 20.02.2009 um 15:21 Uhr

Manchmal hängts bei mir eben auch [verlinkte Grafik wurde nicht gefunden]

Freiheit schützt man nicht indem man sie abschafft!

  [Antwort schreiben]

Forum / Bits und Bytes

(c) 1999 - 2026 team-ulm.de - all rights reserved - hosted by ibTEC Team-Ulm

- Presse - Blog - Historie - Partner - Nutzungsbedingungen - Datenschutzerklärung - Jugendschutz -