如何:将文件附加到 Outlook 电子邮件项
此示例将文件附加到新的邮件项并将它发送给 Armando Pinto。 此示例假设名为 Armando Pinto 的人是收件人。
**适用于:**本主题中的信息适用于 Outlook 2007 和 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();
}
}