使用VBA编写Gmail电子邮件

在Excel中使用VBA，并且用户已经登录到Gmail，我如何在Gmail中撰写电子邮件而不发送草稿或弹出窗口？我已经看到了几个使用凭据发送电子邮件的示例，但是由于用户已经登录，我可以不使用凭据来发送电子邮件吗

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1    ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "someone@gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*******"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    .Update
End With



With iMsg
    Set .Configuration = iConf
    .To = "me@hotmail.com"
    .CC = ""
    .BCC = ""
    .From = """Dave"" <me@hotmail.com>"
    .Subject = "New form"
    .AddAttachment TempFilePath & TempFileName & FileExtStr
    .Send
End With

Set iMsg=CreateObject（“CDO.Message”）
设置iConf=CreateObject（“CDO.Configuration”）
加载-1'CDO源默认值
设置Flds=iConf.Fields
使用FLD
.项目（”http://schemas.microsoft.com/cdo/configuration/smtpusessl“”=真
.项目（”http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.项目（”http://schemas.microsoft.com/cdo/configuration/sendusername") = "someone@gmail.com"
.项目（”http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*******"
.项目（”http://schemas.microsoft.com/cdo/configuration/smtpserver“”=“smtp.gmail.com”
.项目（”http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.项目（”http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.更新
以
与iMsg
Set.Configuration=iConf
.To=”me@hotmail.com"
.CC=“”
.BCC=“”
.From=“”戴夫“
.Subject=“新表格”
.AddAttachment TempFilePath&TempFileName&FileExtStr
.发送
以

---

编辑：我的公司使用Outlook，但我们很快就会转向谷歌。在Outlook中自动生成的电子邮件中，在Excel中，我使用某些单元格来帮助填充主题行、正文和电子邮件收件人。我希望做同样的过程，但不是使用Outlook，我想使用谷歌

我假设“不使用凭据”是指使用已登录到浏览器的会话？我不知道你到底想完成什么。是的，这是正确的。我将对我想要实现的目标进行更多的背景编辑。在尝试使用CDO进行编辑之前，您可能需要先看一下。