Word中的VBA宏到电话回家答案

【问题标题】：VB macro in Word to phone homeWord中的VBA宏到电话回家
【发布时间】：2015-12-10 21:48:58
【问题描述】：

我正在寻找一个 VB 脚本，它会在文档打开时“打电话回家”。我创建了一个名为 AutoOpen 的空宏，它在文档打开时正确执行。

我想收集时间、当前登录用户和计算机名称，然后自动发送包含这些信息的电子邮件地址。主要是看谁在打开那个文件。

有没有办法用 VB 在 word 中做到这一点？

我还没有看到任何类似 php 的函数调用来发送电子邮件，例如 mail("blahblah@mail.com", "mysubject", "my text");这就是我正在寻找的，但在 VB 中

【问题讨论】：

1000分的人怎么会问这么糟糕的问题XD
到目前为止你尝试过什么？这是一个非常简单的任务，但我们不是代码血汗工厂，我们是一个学习存储库，我们可以帮助您修复您的编码尝试。从研究“VBA 发送电子邮件”开始，它将为您提供 90% 的直接来自 Google 的代码。
我打开了 word，转到宏，编辑了一个名为“AutoOpen”的新宏，然后首先做了一个简单的消息框，以确保每次打开文档时都会弹出它。那行得通。接下来为了发送邮件，我尝试了“System.Net.Mail”，但它找不到库 .Net（在 System 之后）
我已搜索“从 Word 文档 VB 发送电子邮件”，但没有好的链接
看到this one？（没试过，但看起来很有希望）

标签： vba excel vbscript ms-word

【解决方案1】：

这是我一直使用的电子邮件代码。

Sub EmailCopy()
Dim oApp, oMail As Object
    On Error Resume Next
    Set oApp = CreateObject("Outlook.Application")
    Set oMail = oApp.CreateItem(0)
    With oMail
        .To = "Someone@Somewhere.com.au"
        .Subject = "My Subject Title"
        .Body = "Here is the information you asked for"
        .Send
    End With
    Set oMail = Nothing
    Set oApp = Nothing
End Sub

尝试在您的代码中实现它并在遇到困难时回发。您将需要对 Outlook 的引用（我假设您是通过 Outlook 发送的？如果不是，您需要使用 Mat's Mug 发布的 CDO 方法）

也可以从您的问题中删除 vbscript 标记，这是 VBA :)

【讨论】：

谢谢丹。我的目标是让它自动发送电子邮件，而不是启动 Outlook。