VB.Net: öffnen Sie outlook mit to,cc,subject, body , attachment

möchte ich beim öffnen von outlook von meinem vb.net -Anwendung. Ich will die ausfüllen,Subject, Body und Attachment-Teil der E-mail durch meine Anwendung. hier brauche ich nicht um E-mail senden . Ich will nur öffnen von outlook mit E-mail-parameter.

Bitte vorschlagen, wie ich kann, um diese Aufgabe

InformationsquelleAutor Rupesh | 2011-03-08

  1. 5

    Die Allgemeine Vorgehensweise ist wie folgt:

    • Erstellen Sie eine mailto: link string mit den benötigten Informationen
    • Übergeben Sie die Zeichenfolge, um - Prozess.Start. Dies öffnet den Standard E-mail-client, kein Outlook notwendig.

    Zum Beispiel, der string könnte so Aussehen: mailto:[email protected]?subject=Hello&body=test. Die einzelnen Felder müssen korrekt gekennzeichnet werden (URL-kodiert). Weitere Informationen zur syntax finden Sie in RFC 2368.

    Anlage können Hinzugefügt werden, mithilfe der attachment argument in der mailto string. Nach ein Kommentar auf der MSDN-Website das hat sich doppelt zitiert, obwohl. Das heißt:

    mailto:mail@example.com?subject=Hello&body=Test&attachment=""C:\file.txt""
    Ok werde ich versuchen und lassen Sie wissen. eine weitere Sache. wenn die Anlage mehr als eine, dann wie kann dies erreicht werden?

    InformationsquelleAutor Konrad Rudolph

  2. 2

    Diese Aufgabe kann erreicht werden durch office interop, fügen Sie einfach einen Verweis auf unser Projekt zu " Microsoft.Office.Interop.Outlook'. Dann in Ihre applicattion kann créate eine E-mail und dann die Dateien wie folgt:

    Imports Microsoft.Office.Interop

...

Dim Outlook As Outlook.Application
Dim Mail As Outlook.MailItem
Dim Acc As Outlook.Account

Outlook = New Outlook.Application()
Mail = Outlook.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
Mail.To = "[email protected]"
Mail.Subject = "Hello World!"

'If you have multiple accounts you could change it in sender:
For Each Acc In Outlook.Session.Accounts
    'Select first pop3 for instance.
    If Acc.AccountType = Microsoft.Office.Interop.Outlook.OlAccountType.olPop3 Then
        Mail.Sender = Acc
    End If
Next

'Take default account if no sender...
If Not Sender Is Nothing Then Mail.Sender = Sender.CurrentUser.AddressEntry

'Attach files
Mail.Attachments.Add("C:\Path\To\File.pdf")
Mail.Attachments.Add("C:\Path\To\File1.pdf")

'Append some text:
Mail.HTMLBody &= "Hello World!"

Mail.Display()

    Es ist eine alte Frage, aber ich denke, es könnte helfen, jemand anderes.

    InformationsquelleAutor ZeroWorks

  3. 0

    Den Fall, dass jemand will, um dies zu tun, ohne über outlook...

    Imports System.Net.Mail

Public Function SendEmail(EmailBody As String, EmailSubject As String, EmailTo As String, AttachmentPath As String, EmailAsHTML As Boolean)

    Dim Mail As New MailMessage

    Try
        Dim SMTP As New SmtpClient("smtp.gmail.com")
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential("[your gmail [email protected]]", "[the associated password]")
        SMTP.Port = 587

        Mail.From = New MailAddress("""[Friendly Name]"" <[your gmail [email protected]>")

        'Split Multiple Addresses
        If EmailTo.Contains(";") Then
            For Each EmailAddress In EmailTo.Split(";")
                Mail.To.Add(Trim(EmailAddress))
            Next
        Else
            Mail.To.Add(Trim(EmailTo))
        End If

        Mail.Subject = EmailSubject
        Mail.Body = EmailBody
        If AttachmentPath <> "" Then Mail.Attachments.Add(New Mail.Attachment(AttachmentPath))
        Mail.IsBodyHtml = EmailAsHTML

        SMTP.Send(Mail)

        'Clear Mail Object
        Mail.Dispose()

        'Function Return
        Return True

    Catch ex As Exception

        'Function Return
        Return False

    End Try
End Function

    InformationsquelleAutor Tim

  4. -1

    Fand diesen tollen Beitrag.

    Programmgesteuert hinzufügen von Anhängen an E-Mails in C# und VB.NET

    Den verlinkten Artikel beschreibt, wie Sie mithilfe der MAPISendMail-Funktion, bereitgestellt durch MAPI32.dll. 

        <DllImport("MAPI32.DLL")> _
     Private Shared Function MAPISendMail(ByVal sess As IntPtr, 
         ByVal hwnd As IntPtr, ByVal message As MapiMessage, 
         ByVal flg As Integer, ByVal rsv As Integer) As Integer
    End Function

    Private Function SendMail(ByVal strSubject As String, 
        ByVal strBody As String, ByVal how As Integer) As Integer
        Dim msg As MapiMessage = New MapiMessage()
        msg.subject = strSubject
        msg.noteText = strBody

        msg.recips = GetRecipients(msg.recipCount)
        msg.files = GetAttachments(msg.fileCount)

        m_lastError = MAPISendMail(New IntPtr(0), New IntPtr(0), msg, how, 
            0)
        If m_lastError > 1 Then
            MessageBox.Show("MAPISendMail failed! " + GetLastError(), 
                "MAPISendMail")
        End If

        Cleanup(msg)
        Return m_lastError
    End Function

    Hoffe, es wird helfen, jemand, vielleicht finden sich übrigens hier, wie ich es Tat.

    InformationsquelleAutor Michael Rushizha

Schreibe einen Kommentar