0

セル a の変更に基づいて送信および電子メールで送信するこのコードがありますが、エンド ユーザーの問題をより具体的に特定するために、電子メール本文に他のセルの内容を含めたいと考えています。必要な特定の細胞をターゲットにする最善の方法がわかりませんでした。どんな助けでも大歓迎です！ 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:A1000], Target) Is Nothing Then
    Set olApp = CreateObject("Outlook.application")
    Set M = olApp.CreateItem(olMailItem)
   Dim rngTo As Range
    Dim rngBody As Range
    Dim objOutlook As Object
    Dim objMail As Object
    Dim Issues As String
    Dim Desc As String
    Issues = Target.row


    With ActiveSheet
        'here is where i'm trying to get the contents of "F"
        Desc = Range("F" & Issues)
        Set rngBody = Intersect([A2:A1000], Target)
    End With
    rngBody.Copy

    With M
        .Subject = "Issue Tracker Has Changed"
        .Body = "The Status of Your Issue" & Desc & " Has Changed to " & rngBody
        .Recipients.Add "jane.doe@whatever.org"
        .Send
    End With
End If
End Sub

ここに画像の説明を入力

4

1 に答える 1

0

これを解決するには、Target の行の値を取得し、それをデータが必要な列と組み合わせて、本体の文字列として返しました。

    Dim Issues As String
    Dim Desc As String
    Issues = Target.row

    Desc = Range("F" & Issues)


.Body = "The Status of Your Issue" & Desc & " Has Changed to " & rngBody.Value

これらの行を追加することで、私が抱えていた問題を達成することができました

于 2013-08-09T17:24:40.580 に答える