Excelに基づく電子メールに返信する

Question

私のオートメーション手順では、障害が発生しました。以下の概説します：

&は

（提出の際に電子メールが&フィールドが共有ドライブにトラッカーに移調されます送信されます）は、ユーザーがExcelのフォームを記入し、提出をクリックすることができ、オンラインで利用できるようにフォームを作成し

1. をEメールは受信トレイに表示され、Outlookのルールは今件名

   私は私のトラッカーで

   で立ち往生しています部分に到達するために、私はいくつかのルールを持ってオフに基づいて別のフォルダに電子メールをソートします決定的n。一言で言えば、特定のセル値（列H）に基づいて、私はテンプレート（テンプレートはuserformから参照される3つのフィールドを持つ）で元の電子メールに応答する必要があります。

   私が悩んでいる部分は、私の自動化された決定でOutlookの元の電子メールにどのように返信しますか？

   助けてください:)

Answer 1

だから、あなたは、細胞が特定の値を持っている場合は、右、電子メールを送信します。以下のスクリプトを試してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Cells.Count > 1 Then Exit Sub 
    If Not Application.Intersect(Range("A1"), Target) Is Nothing Then 
     If IsNumeric(Target.Value) And Target.Value > 200 Then 
      Call YourMacroName 
     End If 
    End If 
End Sub 

Sub Mail_small_Text_Outlook() 
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm 
'Working in Excel 2000-2016 
    Dim OutApp As Object 
    Dim OutMail As Object 
    Dim strbody As String 

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

    strbody = "Hi there" & vbNewLine & vbNewLine & _ 
       "Cell A1 is changed" & vbNewLine & _ 
       "This is line 2" & vbNewLine & _ 
       "This is line 3" & vbNewLine & _ 
       "This is line 4" 

    On Error Resume Next 
    With OutMail 
     .To = "ron@debruin.nl" 
     .CC = "" 
     .BCC = "" 
     .Subject = "This is the Subject line" 
     .Body = strbody 
     'You can add a file like this 
     '.Attachments.Add ("C:\test.txt") 
     .Display 'or use .Send 
    End With 
    On Error GoTo 0 

    Set OutMail = Nothing 
    Set OutApp = Nothing 
End Sub 

https://www.rondebruin.nl/win/s1/outlook/bmail9.htm