>

이 문제에 갇혀 있습니다. 너무 많은 것을 시도했지만 작동하지 않습니다. 이 매크로를 사용하여 이메일을 보내려고합니다. 이메일을 보낼 수 있지만 이메일 본문에 "permit"이라는 변수 값이 포함되어 있지 않습니다. columnC에 대한 허용 목록, 전자 메일 목록 columnE 및 columnG에 나머지 목록이 있습니다. 이 매크로 이메일을 완벽하게 실행하지만 허가가 본문에 첨부되지 않으면 모든 허가를 이메일 다음 행에 보내고 싶습니다. 도움이 필요하십니까?

Sub SendReminderMail()
Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim iCounter As Integer
Dim MailDest As String
Cells(iCounter & "C").Select
Dim permit As String
permit = Cells(iCounter & "C").Value
Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
With OutLookMailItem
    MailDest = ""
        For iCounter = 2 To WorksheetFunction.CountA(Columns(5))
            If MailDest = "" And Cells(iCounter, 5).Offset(0, 2) = "Send Reminder" Then
            MailDest = Cells(iCounter, 5).Value
                ElseIf MailDest <> "" And Cells(iCounter, 5).Offset(0, 2) = "Send Reminder" Then
            MailDest = MailDest & ";" & Cells(iCounter, 5).Value
            End If
Next iCounter
    .BCC = MailDest
    .Subject = "Soon to Expire"

    .Body = "Reminder: Your Permit is about to expire Permit#" & permit
'here is the part where i want my permit variables to attach
    .Send
End With
Set OutLookMailItem = Nothing
Set OutLookApp = Nothing
End Sub

  • 답변 # 1

    사용

    permit = Cells(iCounter, "C").Value

    또는

    permit = Range("C" & iCounter).Value

    약간의 차이가 보입니까?

  • 이전 excel vba - vba - api getsystemtime에서 경과 된 밀리 초를 사용한 성능 테스트
  • 다음 android - App Inventor, 카메라 모드에서 이미지를 표시하고 앱으로 카메라를 시작 하시겠습니까?