VB.Net Mail optie

[-Morris-]

Hoi Allen,

Ik wil een applicatie schrijven in Visual Studio. Ik ben al een heel eind maar heb 1 probleem.

Het is een applicatie waar een manager een nieuwe medewerker kan aanmelden bij de IT afdeling.
Deze wil ik dan door laten mailen naar de IT mailbox. Hier heb ik een button voor aangemaakt.

Na uren lang zoeken en tuturials lezen ben ik geen steek verder. Ik wil dus als het ware een hmlt / txt output van alle dropdown/text boxes via de lokale outlook client mailen naar een bepaalde mail.

Is dit mogelijk? Ik gebruik "Visual Studio 2008"

Plaatje van hoe het er nu uit ziet heb ik toegevoegd.

Alvast bedankt!!

[P_de_B]

Daar zijn echt al vele tutorials over gemaakt. Ik zou er ook niet voor kiezen om de lokale client te gebruiken, maar gewoon SMTP.

http://www.google.nl/sear...&btnG=Google+zoeken&meta=

De eerste hit lijkt al heel veelbelovend.

[Daspeed]

Je zult zelf je html/txt moeten samen stellen. Vaak is't handig om dat te doen met behulp van een template engine.

Als je dat voor elkaar hebt kun je gebruik maken van de functionaliteit in de System.Net.Mail namespace:
http://msdn.microsoft.com...stem.net.mail(VS.85).aspx

[Verwijderd]

Ik heb bij mijn programma zeer simpel gehouden:

Visual Basic .NET:

Try
            Dim message As New MailMessage("[e-mail]", ToAddress, txtOnderwerp.Text, txtInhoud.Text)
            Dim emailClient As New SmtpClient("hier de smtp server")
            emailClient.Send(message)
            MessageBox.Show("De e-mail naar " & ToNaam & " is goed verzonden.")
            Me.Close()
        Catch
            MessageBox.Show(Err.Description, Err.Source)
        End Try

En als je dan nog een variabele aanmaakt, 'inhoud' ofzo, kan je daar misschien alle data van de dropdown/text boxes inzitten, gebruik makende van vbNewLine, en dat dan in de plaats zetten van txtInhoud.Text

Ook moet je vanboven zetten: Imports System.Net.Mail

[-Morris-]

Hieruit blijkt maar weer hoe leek ik hier in ben. Dacht dat ik al een aardig eind was maar nog veel te doen dus.

Ik ga kijken hoe ik dit allemaal ga gebruiken om resultaat te bereiken.

Bedankt voor alle hulp tot nu toe..

[CMG]

Je kan de applicatie in een minuut of 10-15 afmaken als je wilt.

als je gewoon met een paar keer string.format stukjes html (een table bijv.) aan elkaar knoopt heb je je mail message en dan inderdaad versturen via de snippet van Tha Render. Als je het echt via de outlook client wilt doen (kan, maar kost paar uur werk), dan zul je moeten duiken in Office automation, werkt via COM libraries waar vaak doordat er veel met objects en undocumented featured gewerkt wordt een hoop google werk oplevert omdat je geen intellisense hebt en dus ook niet door wat te proberen tot een oplossing komt.

Hoop dat je er wat aan hebt,

Nick.

[CMG]

C#:

namespace NKCSS.Web.BackEnd
{
    public class Mail
    {
        public Mail()
        {
            //
            // TODO: Add constructor logic here
            //
        }
        public static void SendMail(string To, string Subject, string Body)
        {
            SendMail(new MailAddress(To), Subject, Body);
        }
        public static void SendMail(MailAddress To, string Subject, string Body)
        {
            // POP Before SMTP Fix
            NKCSS.Mail.POP3 P3 = new NKCSS.Mail.POP3(POP_CLIENT, 110, POP_USER, POP_PASS);
            if (P3.Connect())
            {
                MailMessage message = new MailMessage();
                message.From = new MailAddress(REPLY_TO_ADDRESS, REPLY_TO_NAME);
                message.To.Add(To);
                message.Bcc.Add(CARBON_COPY_MAILBOX);
                message.Subject = Subject;
                message.Body = Body;
                message.IsBodyHtml = true;
                SmtpClient client = new SmtpClient();
                client.UseDefaultCredentials = true;
                client.Send(message);
            }
            else
            {
                throw new ApplicationException("Unable to login to pop3 server!");
            }
        }
        // Ik heb wat mail adressen, login's en wachtwoorden weggehaald en vervangen door constant-like benamingen (upper case + underscores).

Hier gebruik ik de code:

Visual Basic .NET:

    Private Sub NotifyWaitingUsers(ByVal DeliveryID As Int64)
        Dim OD As OrderDelivery = (From Del In BIBDB.OrderDeliveries Where Del.ID = DeliveryID Select Del).Single
        Dim Notifications As List(Of Notification) = (From No In BIBDB.Notifications Where No.GameID = OD.Order.GameID And Not No.NotificationSent.HasValue Select No).ToList
        For Each N As Notification In Notifications
            Dim MailHTML As String = Helper.RenderNotification(N.Game, OD.DeliveredQuantity, N.Customer, N.ID)
            N.NotificationSent = Now
            BIBDB.SubmitChanges()
            Helper.SendMail(N.Customer.Email, N.Game.Title & " is weer op voorraad.", MailHTML)
        Next
    End Sub

Je moet er dan wel even aan denken om in je web.config de volgende info toe te voegen:

XML:

    <system.net>
        <mailSettings>
            <smtp from="hier reply-to adres">
                <network host="hier smtp server" port="25" userName="hier user name" password="hier password" defaultCredentials="true"/>
            </smtp>
        </mailSettings>
    </system.net>