回复基于Excel的电子邮件价值

问题描述：

我在自动化程序中遇到了障碍。下面将概述：回复基于Excel的电子邮件价值

创建表格可在网上&允许用户填写Excel表格，然后点击提交（提交后，电子邮件将被发送&字段将被调换到Tracker在共享驱动器）
电子邮件将显示在收件箱和Outlook规则将电子邮件到不同的文件夹断基于主题行

现在我停留在

在我跟踪的一部分，我有一些规则，以在到达排序decisio ñ。简而言之，基于特定的单元格值（列H），我需要使用预定义的模板来响应原始电子邮件（模板具有从用户表单引用的3个字段）。

我坚持的部分是如何在Outlook中回复原始电子邮件以及我的自动决定？

请帮助:)

https://stackoverflow.com/questions/31817632/outlook-reply-to-an-email – braX

@braX唯一的问题是，我的预定义模板将使用3场最初的excel用户表单。以上解决方案只会回复电子邮件号码？有点新的VBA，但我认为收到新的电子邮件时，我需要触发另一个宏也许？ – selvend2

只是有点不确定如何触发/打开我的excel文件 – selvend2

答

所以，你要发送的邮件，如果一个小区有一个特定的值，对吧。请尝试下面的脚本。

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 = "[email protected]" 
     .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

回复基于Excel的电子邮件价值

相关推荐