Wie kann ich in Visual Basic eine E-Mail als EML-Datei speichern

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von ChrizzleWhizzle.

    Wie kann ich in Visual Basic eine E-Mail als EML-Datei speichern

    Hallo liebe VB-Paradise-User!

    Ich habe mithilfe von Visual Basic 2010 Express einen kleinen Mail-Sender gebaut. Jetzt möchte ich, dass der User des Programms die E-Mail als EML-Datei speichern kann und später wieder öffnen und dann Senden kann.

    Wenn jemand ein Codebeispiel hätte, wäre ich sehr dankbar! :thumbsup:

    Viele Grüße

    VisualBasicCoder ;)

    1min google ^^
    Spoiler anzeigen

    Quellcode

    1. using System;
    2. using System.Collections.Generic;
    3. using System.Runtime.InteropServices;
    4. using System.Text;
    5. using DvApi32;
    7. namespace ConsoleApplication4
    8. {
    9. class Program
    10. {
    11. [DllImport("dvapi32.dll", EntryPoint = "DVEmlFromMailItem")]
    12. public extern static long DVEmlFromMailItem(MailItem oMailItem, StringBuilder Path);
    14. static void Main(string[] args)
    15. {
    16. eMail2eml();
    17. }
    19. /// <summary>
    20. /// Save all MailItems entries as .eml
    21. /// </summary>
    22. private static void eMail2eml()
    23. {
    24. DavidAPIClass oApp;
    25. Account oAcc;
    26. Archive oArchive;
    27. MessageItems oMessageItems;
    28. MailItem oMailItem;
    29. int l;
    31. oApp = new DavidAPIClass();
    32. oApp.LoginOptions = DvLoginOptions.DvLoginForceAsyncDuplicate;
    33. oAcc = oApp.Logon("", "", "", "", "", "NOAUTH");
    34. oArchive = oAcc.GetSpecialArchive(DvArchiveTypes.DvArchivePersonalIn);
    35. oMessageItems = oArchive.AllItems;
    36. for (int i = 0; oMessageItems.Count > i; i++)
    37. {
    38. if (oMessageItems.Item(i).Type == DvItemTypes.DvEMailItem)
    39. {
    40. oMailItem = (MailItem)oMessageItems.Item(i);
    41. StringBuilder oSb = new StringBuilder(260);
    42. if (DVEmlFromMailItem(oMailItem, oSb) != 0)
    43. {
    44. System.IO.File.Copy(oSb.ToString(), @"c:\temp\" + oMailItem.Subject + ".eml");
    45. }
    46. }
    47. }
    48. oAcc.Logoff();
    49. }
    50. }
    51. }

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ChrizzleWhizzle“ ()

    hm ok sorry hatte das ohne zu testen einfach gepostet :(

    Aber diesmal hört es sich viel versprechender an^^

    Spoiler anzeigen

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' ExtendedMail-Klasse erweiterte die MailMessage-Klasse um eine Methode zum
    3. ' Speichern der Email.
    4. ''' </summary>
    5. ''' <remarks></remarks>
    6. Public Class ExtendedMail
    7. Inherits System.Net.Mail.MailMessage
    9. ''' <summary>
    10. ''' Speichert die Email im angegebenen Pfad im .eml-Format
    11. ''' </summary>
    12. ''' <param name="Path">Das Verzeichnis in dem die Email gespeichert
    13. ' werden soll.</param>
    14. ''' <remarks></remarks>
    15. Public Function Save(ByVal Path As String) As Boolean
    17. Try
    18. 'Erstelle SmtpClient-Instanz. Die Angabe des Hosts ist nicht
    19. ' erforderlich.
    20. Dim smtp As New System.Net.Mail.SmtpClient
    22. 'Auslieferungsmethode
    23. smtp.DeliveryMethod = _
    24. Net.Mail.SmtpDeliveryMethod.SpecifiedPickupDirectory
    26. 'Ausgabepfad
    27. smtp.PickupDirectoryLocation = Path
    29. 'Email "speichern"
    30. smtp.Send(Me)
    32. Return True
    34. Catch ex As Exception
    36. Return False
    38. End Try
    40. End Function
    42. End Class

Facebook
Telefonspende