VBA从当前用户地址发送带有CDO的电子邮件

2 回答

• 0

  实现这一目标的最简单方法是从cpearson中删除等待代码中“fromadress”的所有行 . 如果删除以下行：

  If Len(Trim(FromAddress)) = 0 Then
      SendEMail = False
      Exit Function
  End If
  

  和

  .From = FromAddress
  

  并更改函数的定义，如下所示：

  Function SendEMail(Subject As String, _
          ToAddress As String, _
          MailBody As String, _
          SMTP_Server As String, _
          BodyFileName As String, _
          Optional Attachments As Variant = Empty) As Boolean
  

  然后没有设置fromaddress并自动分析将使用Outlook的标准地址 .

  回复于 2024-04-29T21:35:49+08:00
• 0

  CDO是不可能的，因为.from是必需的参数 .

  解决方案是使用本机Outlook VBA（当然，您应该从Outlook而不是GMAIL或其他方式发送邮件） . 这里有很多例子：

  http://www.rondebruin.nl/win/s1/outlook/amail1.htm

  http://www.rondebruin.nl/win/s1/outlook/mail.htm

  回复于 2024-04-29T21:35:49+08:00