0

特定のシートの別のワークブックでセル A1 を参照して、電子メールの「To」フィールドとして設定しようとしています。これが私のコードです:

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

Addresses = Workbooks("Test.xlsx").Sheets("Sheet2").Range("A1").Value

On Error Resume Next
With OutMail

.to = Addresses
.CC = ""
.BCC = ""
.Subject = "Confirm " & Format(Date, "mm.dd.yy")
.body = "Please see attached for your confirm.  Thanks,"
.Attachments.add ActiveWorkbook.FullName
.Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

マクロを実行すると、メールの「To」フィールドに何も表示されません。私が参照しているセルには、間違いなく値があります。誰か提案はありますか?

4

1 に答える 1