Question

我是excel表（发票），我正在定期更新客户发票和账单状态，我需要在账单到达信用日期之前（7天之前）向我的客户发送剩余电子邮件（仅待处理账单），我我手动将电子邮件发送给我的客户

是否有自动电子邮件可以在截止日期前（前7天和前3天）从excel发送的任何选项，任何人都可以帮助我

Answer 1

这应该做你想要的！

要在手动更改特定单元格时自动运行宏，可以使用工作表模块中的“更改”事件。此页面上的示例使用单元格A1，如果单元格值> 200，则将运行宏。

1）右键单击工作表选项卡，然后选择查看代码 2）将下面的事件粘贴到图纸模块中。 3）Alt-q返回Excel

注意：将YourMacroName更改为代码中宏的名称。如果您希望代码适用于其他单元格或更多单元格，则可以更改事件中的范围。

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

示例邮件宏

测试此示例宏以使用小文本消息创建/显示Outlook邮件。您必须在标准模块中而不是在工作表模块中复制此宏，请参阅此页面。

注意：我在代码中使用.Display来显示邮件，你可以将其更改为.Send

不要忘记将Change YourMacroName更改为在Change事件中调用Mail_small_Text_Outlook。

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

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

如何在特定Excel单元格值到达截止日期时发送自动电子邮件

1 个答案: