通过在线发送电子邮件

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

在这里，第二个工作表的学生ID字段，我想要能够写行号，并填写下面的空白与自动从前一页正确的信息。 然后，我希望能够将该工作表作为电子邮件发送。 我只知道excel的基本知识，我在线使用excel。 有什么办法，我可以做到这一点使用Excel在线？ 我搜查了很多，但找不到任何解决scheme。 请帮我一下 谢谢。

Answer 1

您可以使用macros来发送电子邮件，然后用短键触发它，手动或添加一个调用它的button。 要创build一个，请按Alt – F11打开编辑器。 单击插入 – >模块，然后添加以下代码：

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函数来使用Cells(columnnumber, rownumber).Value的值。 您可以查看此支持页面以了解如何使用button，或者在此页面上手动或使用快捷键运行。 仔细检查一下，先将它编辑给你自己的口味。