keepononon_____ 2021-11-16 13:39 采纳率: 77.8%
浏览 12
已结题

vba为什么没有调用我写在程序里的sendusingaccount账号发送邮件,还是用了我默认的账号呢件

Sub SendEmail()
  Dim OutlookApp As Object
  Dim OutlookItem As Object
  Set OutlookApp = CreateObject("outlook.Application")
  Set OutlookItem = OutlookApp.CreateItem(olMailItem)
  Sheets("Senemail").Select
  Receiver = [b1].Value
  Receiver2 = [b5].Value
  SubjectTex = [b2].Value
  BodyText = [b3].Value
  AttchadObject = [b4].Value
  
On Error GoTo SendEmail_Error
   With OutlookItem
        .SendUsingAccount = "northordercn@outlook.com"
        .To = Receiver
        .CC = Receiver2
        .Subject = SubjectText
        .Body = BodyText
        If AttchadObject <> "" Then
        .Attachments.Add AttchadObject
        End If
        .Send
  End With
SendEmail_Exit:
  Exit Sub
SendEmail_Error:
  MsgBox Err.Description
End Sub
为什么没有调用我写在程序里的sendusingaccount账号发送邮件,还是用了我默认的账号呢

  • 写回答

1条回答

      报告相同问题?

      相关推荐 更多相似问题

      问题事件

      • 系统已结题 11月24日
      • 创建了问题 11月16日

      悬赏问题

      • ¥15 数组并求平均数及各值与平均数之差
      • ¥15 Qt5.9.9+Vs2017遇到字符集问题
      • ¥25 win11无法启用windows功能
      • ¥15 spm-cat进行VBM分析出错
      • ¥50 c++dll中,在函数中创建线程,在函数执行完之后,线程也被销毁了,有什么办法可以让线程持续运行?
      • ¥15 微信小程序真机测试报错空白
      • ¥15 急需帮助!!!非常需要帮助
      • ¥15 idea运行后磁盘爆满
      • ¥15 matlab的编程题。。。。。。。。
      • ¥300 数字n拆分为m个数字之和的组合问题