連絡先を Outlook から Word にコピーする

Outlook【VBA】

2021.01.072021.01.10

Sub CopyCurrentContact()
   Dim OutlookObj As Object
   Dim InspectorObj As Object
   Dim ItemObj As Object
   Set OutlookObj = CreateObject("Outlook.Application")
   Set InspectorObj = OutlookObj.ActiveInspector
   Set ItemObj = InspectorObj.CurrentItem
   Application.ActiveDocument.Range.InsertAfter (ItemObj.FullName &amp; " from " &amp; ItemObj.CompanyName)
End Sub

Sub CopyCurrentContact()

Dim OutlookObj As Object

Dim InspectorObj As Object

Dim ItemObj As Object

Set OutlookObj = CreateObject("Outlook.Application")

Set InspectorObj = OutlookObj.ActiveInspector

Set ItemObj = InspectorObj.CurrentItem

Application.ActiveDocument.Range.InsertAfter (ItemObj.FullName & " from " & ItemObj.CompanyName)

End Sub

このコードでは、現在 Outlook で開いている連絡先を、Word で開いている文書にコピーします。このコードを正常に実行するには、連絡先が Outlook で開かれ、閲覧できる状態になっている必要があります。

連絡先を Outlook から Word にコピーする

いいね:

コメント

共有:

いいね:

コメント