특정 시트의 다른 통합 문서에서 셀 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
, 이메일에서 "받는 사람"필드는 아무것도가 없습니다 : 여기 내 코드입니다. 내가 참조하고있는 셀은 확실히 가치가 있습니다. 누구든지 어떤 제안이 있습니까?
당신은 언급합니다 * 다른 통합 문서 * 당신은 Excel이나 Outlook (그런데 태그가 지정되지 않았습니까?)입니까? – pnuts
디버거에서 코드를 실행할 때'Addresses'가 원하는 값을 얻나요? – FrankPl
그런 식으로'On Error Resume Next'를 사용하지 마십시오. 문제를 가릴 수 있습니다. –