從該行的另一列獲取單元格信息

Question

如何做到這一點，以便收件人姓名的電子郵件地址來自其他列。

我將姓名寫在一欄中，我想檢查每個人在同一行中的日期，如果1個月后要發送電子郵件給該人。 我只能引用一個特定的單元格，但是在迭代P列時，每一行都需要它。

Sub Workbook_Open()

Dim Cell As Range
Dim objDate As Date

For Each Cell In Range("P3:P4").Cells

    If Cell.Value <= Date + 30 Then

        'MsgBox "Going to expire in 1 month"

        Dim appOutlook As Outlook.Application
        Dim mitOutlookMsg As Outlook.MailItem
        Dim recOutlookRecip As Outlook.Recipient

        ' Step 1: Initialize an Outlook session.
        Set appOutlook = CreateObject("Outlook.Application")
        ' Step 2: Create a new message.
        Set mitOutlookMsg = appOutlook.CreateItem(olMailItem)
        With mitOutlookMsg
            ' Step3: Add the To recipient(s) to message.
            Set recOutlookRecip = .Recipients.Add(Cells(3, 2))
            recOutlookRecip.Type = olTo
            'Set valid properties like Subject, Body, and Importance of the message.
            .Subject = "Test123"
            '.Body = "Test"
            .BodyFormat = olFormatHTML
            .HTMLBody = " TEST EMAIL "        
            .Importance = olImportanceHigh 'High importance    
            ' Resolve every Recipient's name
            For Each recOutlookRecip In .Recipients
                recOutlookRecip.Resolve
                If Not recOutlookRecip.Resolve Then
                    mitOutlookMsg.Display
                End If
            Next
            .Send
        End With
        Set mitOutlookMsg = Nothing
        Set appOutlook = Nothing       

    Else

    End If
Next Cell

End Sub

Answer 1

我認為您正在尋找的是：Range.Offset（row，col）

例如：

 For Each Cell In Range("P3:P4").Cells
    'cell.Value refers to P3:P4
    myDate = cell.Value

    'cell.Offset(0, 1).Value refers to the column one to the right of cell
    myName = cell.Offset(0, 1).Value
Next cell