小编Alf*_*gos的帖子

我试图让我的用户从他们的 Excel 电子表格轻松发送电子邮件，他们喜欢将其用作数据输入和操作的前端。我的意图是写一个函数：

generateEmail(name, manager, cc)

并使其可以根据用户的喜好调用该函数。

在这种情况下，Excel 调用 Outlook，创建新邮件，并转储包含要发送的格式化电子邮件的文本，其中将包含一些从他们当前正在处理的表中每行动态更改的值。这是 VBA 函数：

Function generateEmail(name, manager, cc)
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

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

    strbody = "To Service Desk:" & vbNewLine & vbNewLine & _
              "Please open a ticket for CS/oe/ns/telecom/dal to request a new extension. Please find the details attached:" & vbNewLine & vbNewLine & _
              "Name: " & name & vbNewLine & _
              "Manager: " & …