Send E-mail VB.net

Det er utroligt nemt at sende en email:

SmtpMail.SmtpServer = "mailserver"
SmtpMail.Send("fra", "til", "subject", "body")

(du skal importere System.Web.Mail namespace)

[streng værdierne skal naturligvis erstattes af rigtige værdier]

Det er straks meget sværere at måle tiden.

Hvilken adgang har du til inbox hos modtager ?

Ja, men så mangler du bare den svære del ;) den skal jo også fortælle hvor lang tid det tager før e-mailen er modtaget.

Venlig hilsen,
Martin.

Ja, det har jeg.

Men! Det skulle efter sigende være muligt at bede om at få en rapport på forsendelsen.

Venlig hilsen,
Martin.

Du kan ikke regne med at få alle mailservere til at sende en confirmation
ved modtagelse.

Du kan heller ikke regne med at få alle mail klientere / brugere til at sende
en confirmation ved læsning.

Hvis vi ikke snakker helt generel SMTP men en specifik mail server og/eller
en specifik mail klient, så kan der måske være nogle muligheder.

Mailserveren er MS Exchange, og klienterne bruger MS Outlook.
Rapporterne er mulige, men jeg kan godt sende mailen til mig selv, for at teste hastigheden på serveren.
Der skal stadig være en timer funktion.

Venlig hilsen,
Martin.

Så du skal sende en email til en Exchange server og du skal læse samme email
fra samme Exchange server og måle tiden på det ? Enten som wall time eller
i noget rapport som Exchange på en eller anden måde laver.

Præcis.

Der skal føres statastik over svarstiden.

Jeg har ihvertfald ingen anelse om det.

smid et svar... :)
Jeg har næsten løst opgaven.

Opgaven er noget i stil med:

Sub Main()
        Dim SendMailItem As MailItem
        Dim oApp As Outlook.Application = New Outlook.Application

        Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
        oNS.Logoff()
        oNS = Nothing
        oNS.Logon("mthogersen", "etellerandet", False, True) ' TODO:
        oNS.Logoff()
        oNS = Nothing
        SendMailItem = oApp.CreateItem(0)
        SendMailItem.To = Command()
        SendMailItem.Body = SendMailItem.SentOn.Hour & " " & SendMailItem.SentOn.Minute & " " & SendMailItem.SentOn.Millisecond
        SendMailItem.OriginatorDeliveryReportRequested = True
        SendMailItem.Send()
        ReceiveMail()
End Sub

Public Sub ReceiveMail()
        ' Create Outlook application.
        Dim oApp As Outlook.Application = New Outlook.Application

        ' Get Mapi NameSpace.
        Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
        oNS.Logon("<bruger>", "<password>", False, True) ' TODO:

        ' Get Messages collection of Inbox.
        Dim oInbox As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
        Dim oItems As Outlook.Items = oInbox.Items
        Console.WriteLine("Total : " & oItems.Count)

        ' Get unread e-mail messages.
        oItems = oItems.Restrict("[Unread] = true")

        Console.WriteLine("Total Unread : " & oItems.Count)

        ' Loop each unread message.
        Dim oMsg As MailItem
        Dim i As Integer

        For i = 1 To oItems.Count
            oMsg = oItems.Item(i)
            Console.WriteLine(i)
            'Console.WriteLine(oMsg.SenderName)
            Console.WriteLine(oMsg.Subject)
            'Console.WriteLine(oMsg.ReceivedTime)

            'got the receive time
            Console.WriteLine(oMsg.Body)

            Console.WriteLine("---------------------------")
        Next

        ' Log off.
        oNS.Logoff()

        ' Clean up.
        oApp = Nothing
        oNS = Nothing
        oItems = Nothing
        oMsg = Nothing
End Sub

Venlig hilsen,
Martin.

kommer her

(selvom jeg jo kun har hjulpet med den ene del af spørgsmålet)

Du fortjener de points :)