Excel VBA を使用して Outlook で特定の電子メール アドレスを選択する方法

VBA を使用して Outlook メールに特定の「差出人」アドレスを設定する方法

アプローチ 1: Outlook で「差出人」アドレスを選択するための VBA スクリプト

' Define the subroutine
Sub enviar_email()
    ' Create an Outlook application object
    Dim objeto_outlook As Object
    Set objeto_outlook = CreateObject("Outlook.Application")
    ' Create a new email item
    Dim Email As Object
    Set Email = objeto_outlook.CreateItem(0)
    ' Set recipient and email details
    Email.To = Cells(2, 1).Value
    Email.CC = ""
    Email.BCC = ""
    Email.Subject = "Hello Teste"
    Email.Body = Cells(2, 2).Value & "," & Chr(10) & Chr(10) _
        & Cells(2, 3).Value & Chr(10) & Chr(10) _
        & "Thanks" & Chr(10) & "Regards"
    ' Add attachment
    Email.Attachments.Add ThisWorkbook.Path & "\Marcelo - " & Cells(2, 4).Value & ".xlsm"
    ' Set the "From" address
    Dim senderAddress As String
    senderAddress = "youremail@domain.com" ' Replace with desired sender
    Email.SentOnBehalfOfName = senderAddress
    ' Display email for confirmation
    Email.Display
End Sub

Outlook の電子メール自動化に C# を利用する

アプローチ 2: Outlook メールの「差出人」アドレスを選択するための C# スクリプト

using System;
using Microsoft.Office.Interop.Outlook;
class Program
{
    static void Main(string[] args)
    {
        // Create an Outlook application object
        Application outlookApp = new Application();
        // Create a new mail item
        MailItem mail = (MailItem)outlookApp.CreateItem(OlItemType.olMailItem);
        // Set recipient and email details
        mail.To = "recipient@domain.com";
        mail.Subject = "Hello Teste";
        mail.Body = "This is a test email generated by C#."; 
        // Add an attachment
        mail.Attachments.Add(@"C:\Path\To\Your\File.xlsm");
        // Set the "From" address
        mail.SentOnBehalfOfName = "youremail@domain.com";
        // Display the email for confirmation
        mail.Display(true);
    }
}

Python オートメーション: Outlook 経由で電子メールを送信する

アプローチ 3: PyWin32 で「差出人」アドレスを選択するための Python スクリプト

import win32com.client as win32
def send_email():
    # Create an instance of Outlook
    outlook = win32.Dispatch("Outlook.Application")
    # Create a new email
    mail = outlook.CreateItem(0)
    # Set recipient and email details
    mail.To = "recipient@domain.com"
    mail.Subject = "Hello Teste"
    mail.Body = "This is a test email generated by Python."
    # Attach a file
    mail.Attachments.Add("C:\\Path\\To\\Your\\File.xlsm")
    # Set the "From" address
    mail._oleobj_.Invoke(*(64209, 0, 8, 0, "youremail@domain.com"))
    # Display the email
    mail.Display(True)
# Call the function
send_email()

VBA 電子メール オートメーションに関するよくある質問

1. VBA で「差出人」アドレスを指定するにはどうすればよいですか?
2. を使用します。 SentOnBehalfOfName プロパティを使用して、VBA マクロで目的の電子メール アドレスを指定します。
3. 添付ファイルが見つからない場合はどうなりますか?
4. 次を使用してエラー ハンドラーを含めることができます。 On Error GoTo 添付ファイルが見つからない場合にユーザーに通知するか、電子メールをスキップします。
5. メールを表示せずに送信することはできますか?
6. はい、交換します Email.Display と Email.Send メールを直接送信します。
7. 電子メールアドレスを検証するにはどうすればよいですか?
8. VBA を使用する Like 演算子または正規表現を使用して、送信前に電子メール形式を検証します。
9. メール本文にHTML形式を使用することはできますか?
10. はい、設定します BodyFormat 財産を olFormatHTML HTML コンテンツを HTMLBody 財産。

Outlook オートメーションを合理化して生産性を向上

VBA を使用して Outlook のタスクを自動化すると、柔軟性と制御が向上します。特定の送信者アカウントの選択、動的な添付ファイルの追加、メッセージのカスタマイズにより、ユーザーは時間を節約し、通信の正確さを維持できます。これは、複数の送信者アカウントを管理する企業に特に役立ちます。 🚀

VBA マクロなどのツールを使用すると、ユーザーは送信者の詳細の誤りやファイルの欠落などの一般的なエラーを防ぐ堅牢なワークフローを作成できます。ベスト プラクティスを適用することで、これらのスクリプトは信頼性とユーザー エクスペリエンスを向上させ、Outlook を仕事上でも個人的なコミュニケーションでも同様に強力なツールにします。