通过excel在线发送电子邮件

Question

我有两张纸。一个包含完整信息，另一个包含有关一个学生必须通过电子邮件发送的某些信息。请看下面的截图：

此处，第二个工作表具有学生ID字段，我希望能够在该字段中编写行号，并在下面的空白处自动填充上一页中的正确信息。然后我希望能够将该工作表作为电子邮件发送。我只知道excel的基础，我在网上使用excel。有什么方法可以使用excel在线吗？我搜索了很多但找不到任何解决方案。请帮帮我。谢谢。

Answer 1

您可以使用宏发送电子邮件，然后使用快捷键触发，手动或添加调用它的按钮。要创建一个，请按Alt - F11打开编辑器。点击插入 - ＆gt;模块，并添加以下代码：

Sub SendEmail()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String


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

strbody = "Dear parent," & vbNewLine & vbNewLine & _
          "This is your child's report:" & vbNewLine
          Cells(1, 4).Value & " :" & Cells(2, 4).Value & vbNewLine
          Cells(1, 6).Value & " :" & Cells(2, 6).Value & vbNewLine
          Cells(1, 7).Value & " :" & Cells(2, 7).Value & vbNewLine
          Cells(1, 8).Value & " :" & Cells(2, 8).Value & vbNewLine
          Cells(1, 9).Value & " :" & Cells(2, 9).Value

On Error Resume Next
With OutMail
    .To = Cells(1,12).Value
    .CC = ""
    .BCC = ""
    .Subject = "Student Report"
    .Body = strbody
    .Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

您放入strbody的内容将是电子邮件的正文。您可以使用Cells(columnnumber, rownumber).Value函数来使用单元格的值。您可以查看this support page以查看如何使用按钮，或在this page查看手动或使用快捷键运行它。首先通过发送给自己进行仔细检查，根据自己的喜好进行编辑。