使用電子名片傳送郵件專案
此範例會建立郵件專案、尋找電子名片，如果找到電子名片，則會將電子名片插入郵件專案中。
範例
若要插入電子名片，您可以在 MailItem 物件上呼叫 AddBusinessCard。 這個方法會採用代表電子郵件位址的字串，並嘗試在預設 [連絡人] 資料夾中尋找具有該位址的 ContactItem 。 ContactItem 可以有多達三個電子郵件位址。 如果找到聯繫人，此範例會呼叫 AddBusinessCard 方法，然後向使用者顯示訊息。
If you use Visual Studio to test this code example, you must first add a reference to the Microsoft Outlook 15.0 Object Library component and specify the Outlook variable when you import the Microsoft.Office.Interop.Outlook namespace. The Imports or using statement must not occur directly before the functions in the code example but must be added before the public Class declaration. The following lines of code show how to do the import and assignment in Visual Basic and C#.
Imports Outlook = Microsoft.Office.Interop.Outlook
using Outlook = Microsoft.Office.Interop.Outlook;
Private Sub AddBusinessCard(ByVal eMailAddress As String)
Dim mail As Outlook.MailItem = CType(Application.CreateItem( _
Outlook.OlItemType.olMailItem), Outlook.MailItem)
mail.BodyFormat = Outlook.OlBodyFormat.olFormatHTML
Dim contact As Outlook.ContactItem = _
CType(Application.Session.GetDefaultFolder( _
Outlook.OlDefaultFolders.olFolderContacts).Items.Find( _
"[Email1Address]='" & eMailAddress & "'" & " OR " & _
"[Email2Address]='" & eMailAddress & "'" + " OR " & _
"[Email3Address]='" & eMailAddress & "'") _
, Outlook.ContactItem)
If (contact Is Nothing) Then
Return
End If
mail.AddBusinessCard(contact)
mail.Display(False)
End Sub
private void AddBusinessCard(string eMailAddress)
{
Outlook.MailItem mail = Application.CreateItem(
Outlook.OlItemType.olMailItem) as Outlook.MailItem;
mail.BodyFormat = Outlook.OlBodyFormat.olFormatHTML;
Outlook.ContactItem contact = Application.Session.
GetDefaultFolder(
Outlook.OlDefaultFolders.olFolderContacts).Items.Find(
"[Email1Address]='" + eMailAddress + "'" + " OR " +
"[Email2Address]='" + eMailAddress + "'" + " OR " +
"[Email3Address]='" + eMailAddress + "'")
as Outlook.ContactItem;
if (contact == null)
{
return;
}
mail.AddBusinessCard(contact);
mail.Display(false);
}