Per Button-Klick Email generieren

Question

möchte per klick auf nen button ein ereigniss auslösen, das mir das Outlook startet und eine neue Email generiert. Jedoch kennt mein Visual Studio den befehlcode nicht. Der Code ist doch Process::Start("Outlook") oder?

Answer 1

Hi,

a) mit welcher Technologie? WinForms, WPF, ASP.NET, ...?
b) Was willst Du machen, wenn Outlook gar nicht installiert ist?
c) Was genau willst Du eigentlich machen? Nur das Standard Emailprogramm aufrufen oder bspw. auch Betreff, Body, Attachments, ... automatisch setzen?

Und Nein, der Code ist so oder so falsch.

---

Gruß, 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

Answer 2

Hi,

arbeite mit Microsoft C++ Express 2010. Outlook wäre für den geplanten PC schon installiert. Aber dein Einwand ist berechtigt. 

Die Funktion sollte so gegeben sein:

Der Qualitätsprüfer sortiert die Werkzeuge aus, stellt fest wieviele für den 2. Gebrauch, wieviele zum Nachschleifen und wieviele es Gesamt sind und  schreibt dies in einer Email an den Vorgesetzen.

Das Programm soll jetzt die Werte erfassen die eingegeben werden und diese Werte in Tabellenform per Email verschicken.

Betreff sollte den Zeitraum von der letzten Erfassung bis zum generieren der Email enthalten.

Body sollte einen Text enthalten wie: "Hier die Erfassung der Werkzeugsortierung von xxx bis xxx. "(xxx = Datum)

Am Schluss dann das Firmenvisitenkarte, also:

Name Abteilung

Firmenlogo

Als Zusatz wäre geplant das die Werte von den letzen Kontrollen schon irgendwie protokolliert sind in einer Datei die der Qualitätsprüfer einsehen kann wenn der Vorgesetze einmal sagen sollte es ist nichts gemacht worden.

Danke schon mal für deine Hilfe,

Gruss Manuel

Answer 3

Hallo Manuel,

wenn es nur ums Versenden von Emails geht, gibt es erheblich bessere Wege, bspw. die Klassen aus dem

  System.Net.Mail Namespace

Eine sehr gute Erklärung zu den einzelnen Klassen sowie eine FAQ findest Du hier:

  http://www.systemnetmail.com/

Da ich mich mit C++ nicht auskenne, weiß ich zwar jetzt nicht, ob Du das dort nutzen kannst, wenn es um .NET geht, sind die Klassen von jeder .NET Sprache aus zu verwenden.

---

Gruß, 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

Answer 4

Hallo Ibkman,

Ich gehe davon aus, dass die Antwort Dir weitergeholfen hat.
Solltest Du noch "Rückfragen" dazu haben, so gib uns bitte Bescheid.

Grüße,
Robert

---

Robert Breitenhofer, MICROSOFT 
Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.

Answer 5

Hallo zusammen,

das Projekt ist zur Zeit leider ziemlich ins Stehen geraten aufgrund von Projekten die einer höheren Prioriätsstufe entsprechen :-( 

Werde mich in den nächsten Tagen wieder vermehrt dahinterklemmen und euch dann teilhaben lassen ob es funktioniert oder nicht.

Danke trotzdem schon mal für das Bemühen.

Grüße

Manuel

Answer 6

Hi Manuell,

ich kenne das nur zu gut. Man fängt etwas an und schon verschiebt sich die Prio. Finde ich persönlich ätzend, gehört aber dazu.

Anbei ein kleiner Sourcode der sich auf die schon von Stefan angesprochene Klasse System.NetMail bezieht.

Habe ich nur so auf die Schnelle zusammengeschrieben, sollte aber funktionieren. Du kannst mehrere Mailempfänger durch Semikolon getrennt und mehrere Dateianhänge durch Semikolon getrennt angeben.

Nicht vergessen die Absenderadresse und den SMTP Server anzugeben.

Gruß

Ulli

Imports System.Net.Mail
Module modMailHelper
    Function SendSMTPMail(ByVal xto As String, ByVal xSubject As String, ByVal xMailtext As String, Optional ByVal xMailAttachedFile As String = "") As Boolean
        Dim xempf()
        Dim xattach()
        Try
            Dim mail As New Net.Mail.MailMessage
            mail.From = New Net.Mail.MailAddress("[e-mail]")
            xempf = Split(xto, ";")
            For i = 0 To xempf.Count - 1
                mail.To.Add(xempf(i))
            Next
            mail.Subject = xSubject
            mail.Body = xMailtext
            If Trim(xMailAttachedFile) <> "" Then
                xattach = Split(xMailAttachedFile, ";")
                For i = 0 To xattach.Count - 1
                    mail.Attachments.Add(New Attachment(xattach(i)))
                Next
            End If
            Dim smtp As New Net.Mail.SmtpClient("DEIN SMTP SERVER")
            smtp.Send(mail)
            SendSMTPMail = True
        Catch ex As Exception
            SendSMTPMail = False
        End Try
    End Function
End Module