C# Imap（開発者向けの動作方法）

// This example demonstrates how to connect to an IMAP server, retrieve unread email messages, and generate a PDF report using IronPDF.

using System;
using System.Collections.Generic;
using MailKit.Net.Imap;
using MailKit.Search;
using IronPdf;

class Program
{
    static void Main(string[] args)
    {
        // IMAP server settings
        string imapServer = "imap.gmail.com";
        int imapPort = 993;
        bool useSsl = true;

        // IMAP credentials
        string username = "your-email@gmail.com"; // Replace with your email address
        string password = "your-app-password"; // Replace with the generated app password

        try
        {
            using (var client = new ImapClient())
            {
                // Connect to the IMAP server
                client.Connect(imapServer, imapPort, useSsl);

                // Authenticate with the server
                client.Authenticate(username, password);

                // Select the INBOX folder
                client.Inbox.Open(FolderAccess.ReadOnly);

                // Search for unread messages
                var searchQuery = SearchQuery.NotSeen;
                var uids = client.Inbox.Search(searchQuery);

                // Create a list to store message details
                var messages = new List<string>();

                // Retrieve details for the first 100 unread messages
                for (int i = 0; i < Math.Min(uids.Count, 100); i++)
                {
                    var uid = uids[i];
                    var message = client.Inbox.GetMessage(uid);

                    // Add message details to the list
                    messages.Add($"From: {message.From}");
                    messages.Add($"Subject: {message.Subject}");
                    messages.Add($"Date: {message.Date}");
                    messages.Add($"Body: {message.TextBody}");
                    messages.Add(""); // Add an empty line for separation
                }

                // Generate PDF report
                GeneratePdfReport(messages);

                // Disconnect from the server
                client.Disconnect(true);
            }
        }
        catch (Exception ex)
        {
            Console.WriteLine($"Error: {ex.Message}");
        }
    }

    static void GeneratePdfReport(List<string> messages)
    {
        try
        {
            var pdf = new ChromePdfRenderer();

            // Convert message details to HTML format
            string htmlContent = "<h1>Not Seen Emails</h1><hr/>";
            foreach (var message in messages)
            {
                htmlContent += $"<p style='padding-top:30px;'>{message}</p>";
            }

            // Render HTML content to PDF
            var pdfOutput = pdf.RenderHtmlAsPdf(htmlContent);

            // Save PDF to file
            var outputPath = "Email_Report.pdf";
            pdfOutput.SaveAs(outputPath);

            Console.WriteLine($"PDF report generated successfully: {outputPath}");
        }
        catch (Exception ex)
        {
            Console.WriteLine($"Error generating PDF report: {ex.Message}");
        }
    }
}

' This example demonstrates how to connect to an IMAP server, retrieve unread email messages, and generate a PDF report using IronPDF.

Imports System
Imports System.Collections.Generic
Imports MailKit.Net.Imap
Imports MailKit.Search
Imports IronPdf

Friend Class Program
	Shared Sub Main(ByVal args() As String)
		' IMAP server settings
		Dim imapServer As String = "imap.gmail.com"
		Dim imapPort As Integer = 993
		Dim useSsl As Boolean = True

		' IMAP credentials
		Dim username As String = "your-email@gmail.com" ' Replace with your email address
		Dim password As String = "your-app-password" ' Replace with the generated app password

		Try
			Using client = New ImapClient()
				' Connect to the IMAP server
				client.Connect(imapServer, imapPort, useSsl)

				' Authenticate with the server
				client.Authenticate(username, password)

				' Select the INBOX folder
				client.Inbox.Open(FolderAccess.ReadOnly)

				' Search for unread messages
				Dim searchQuery = SearchQuery.NotSeen
				Dim uids = client.Inbox.Search(searchQuery)

				' Create a list to store message details
				Dim messages = New List(Of String)()

				' Retrieve details for the first 100 unread messages
				For i As Integer = 0 To Math.Min(uids.Count, 100) - 1
					Dim uid = uids(i)
					Dim message = client.Inbox.GetMessage(uid)

					' Add message details to the list
					messages.Add($"From: {message.From}")
					messages.Add($"Subject: {message.Subject}")
					messages.Add($"Date: {message.Date}")
					messages.Add($"Body: {message.TextBody}")
					messages.Add("") ' Add an empty line for separation
				Next i

				' Generate PDF report
				GeneratePdfReport(messages)

				' Disconnect from the server
				client.Disconnect(True)
			End Using
		Catch ex As Exception
			Console.WriteLine($"Error: {ex.Message}")
		End Try
	End Sub

	Private Shared Sub GeneratePdfReport(ByVal messages As List(Of String))
		Try
			Dim pdf = New ChromePdfRenderer()

			' Convert message details to HTML format
			Dim htmlContent As String = "<h1>Not Seen Emails</h1><hr/>"
			For Each message In messages
				htmlContent &= $"<p style='padding-top:30px;'>{message}</p>"
			Next message

			' Render HTML content to PDF
			Dim pdfOutput = pdf.RenderHtmlAsPdf(htmlContent)

			' Save PDF to file
			Dim outputPath = "Email_Report.pdf"
			pdfOutput.SaveAs(outputPath)

			Console.WriteLine($"PDF report generated successfully: {outputPath}")
		Catch ex As Exception
			Console.WriteLine($"Error generating PDF report: {ex.Message}")
		End Try
	End Sub
End Class