方法: プログラムによって Outlook の電子メールアイテムにファイルを添付する

[アーティクル]
02/21/2013

この例では、新しいメールアイテムにファイルを添付し、それを Armando Pinto に送信します。この例では、Armando Pinto という名前の人物が受信者として存在することを前提にしています。

対象: このトピックの情報は、Outlook 2013 と Outlook 2010 のアプリケーションレベルのプロジェクトに適用されます。詳細については、「Office アプリケーションおよびプロジェクトタイプ別の使用可能な機能」を参照してください。

使用例

Private Sub ThisAddIn_Startup(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Me.Startup
    AddAttachment()
End Sub

Private Sub AddAttachment()
    Dim mail As Outlook.MailItem = _
    TryCast(Me.Application.CreateItem _
    (Outlook.OlItemType.olMailItem),  _
    Outlook.MailItem)

    mail.Subject = "An attachment for you!"

    Dim attachment As OpenFileDialog = _
        New OpenFileDialog()

    attachment.Title = "Select a file to send"
    attachment.ShowDialog()

    If attachment.FileName.Length > 0 Then
        mail.Attachments.Add( _
            attachment.FileName, _
            Outlook.OlAttachmentType.olByValue, _
            1, _
            attachment.FileName)
        mail.Recipients.Add("Armando Pinto")
        mail.Send()
    End If
End Sub

private void ThisAddIn_Startup(object sender, System.EventArgs e)
{
    AddAttachment();
}

private void AddAttachment()
{
    Outlook.MailItem mail =
        this.Application.CreateItem
        (Outlook.OlItemType.olMailItem)
        as Outlook.MailItem;

    mail.Subject = "An attachment for you!";

    OpenFileDialog attachment = new OpenFileDialog();

    attachment.Title = "Select a file to send";
    attachment.ShowDialog();

    if (attachment.FileName.Length > 0)
    {
        mail.Attachments.Add(
            attachment.FileName,
            Outlook.OlAttachmentType.olByValue,
            1,
            attachment.FileName);
        mail.Recipients.Add("Armando Pinto ");
        ((Outlook._MailItem)mail).Send();
    }
}