Gewusst wie: Programmgesteuertes Anfügen von Dateien an Outlook-E-Mail-Elemente
In diesem Beispiel wird eine Datei an ein neues E-Mail-Element angefügt und an Armando Pinto geschickt.Dabei wird angenommen, dass als Empfänger eine Person mit dem Namen Armando Pinto existiert.
Betrifft: Die Informationen in diesem Thema betreffen Projekte auf Anwendungsebene für Outlook 2013 und Outlook 2010. Weitere Informationen finden Sie unter Verfügbare Funktionen nach Office-Anwendung und Projekttyp.
Beispiel
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();
}
}
Siehe auch
Aufgaben
Gewusst wie: Programmgesteuertes Senden von E-Mails
Gewusst wie: Programmgesteuertes Speichern von Anlagen von Outlook-E-Mail-Elementen
Gewusst wie: Programmgesteuertes Erstellen von E-Mail-Elementen