Tag: cdo.message

如何保存所有Excel图表在一个PDF然后通过电子邮件发送: 我将不胜感激，如果你能帮助我，我正在创build一个dynamic的Excel表，我pipe理到目前为止使用Excel vba VBA创buildExcel图表。然而，我正在努力出口所有的图表和一个附加的表格到一个pdf 。我有大约15个Excel图表和一个Excel表格，我需要把一个pdf 。我需要把Excel表格作为pdf的第一页。然后通过电子邮件发送这个pdf （全部使用vba）。你能帮我解决这个问题吗？非常感谢您的帮助。先谢谢你！

在Excel中使用VBA脚本来填充工作表中单元格的.from字段: 我已经成功地configuration了一个基于http://www.rondebruin.nl的例子的VBA脚本，使用gmail帐户和CDO作为附件发送了一个活动forms的excel副本。我想修改的是能够使用填写电子表格的用户的电子邮件地址来改变.From字段。作为过程的一部分，电子邮件地址将填写在电子表格中。现在，我只能在.From字段中填写硬编码的电子邮件地址或用于发送附件的SMTP帐户的电子邮件地址。我的想法可能吗？截至目前，这是我的代码。 Option Explicit 'This procedure will send the ActiveSheet in a new workbook 'For more sheets use : Sourcewb.Sheets(Array("Sheet1", "Sheet3")).Copy Sub CDO_Mail_ActiveSheet_Or_Sheets() 'Working in 97-2007 Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim […]

在Excel中使用VBA发送电子邮件，没有Outlook，64位: 我正在使用下面的代码尝试使用VBA在Excel中发送电子邮件。我不断收到错误：运行时错误“-2147220973（80040213）”：传输失败连接到服务器。我尝试更改端口（25,465,587），更改电子邮件服务器（smtp.gmail.com，smtp.live.com），同时尝试Gmail和Hotmail，在两个Gmail帐户启用不太安全，甚至设置Outlook和禁用防火墙在Avast。代码如下： Sub CDO_Mail_Small_Text() Dim iMsg As Object Dim iConf As Object Dim strbody As String Dim Flds As Variant 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/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 '587 '465 '25 […]

VBA使用Gmail发送电子邮件：传输无法连接: 运行下面的Excel VBA代码我得到以下错误：运行时错误-2147220973 传输失败连接到服务器 Public Function send_email() Set cdomsg = CreateObject("CDO.message") With cdomsg.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 465 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mymail@gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypass" .Update End With ' build email parts With cdomsg .To = "mymail@gmail.com" .From = "mymail@gmail.com" .Subject […]

错误代码：80040213源CDO.Message.1无法连接: 这真的只是我的第二个VBS脚本，所以要温柔…我做了任何与个人或公司有关的事情。我确信所有这些字段都是正确的。 SMTP服务器是正确的，我仔细检查提供商，因为这是我发现在其他网站上的数字1的原因。这个脚本也将从一个特定的单元格中提取信息并粘贴到主体中…任何帮助将不胜感激！也就是说错误在第46行是“ObjSendMail.Send”。除了电子邮件部分，一切正常 Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") Set objExcel = CreateObject("Excel.Application") StopDate = DateAdd("d", -1 – Weekday(Date), Date) StartDate = StopDate-13 Dim xlApp Dim xlWkb Dim monthEnd Set xlApp = CreateObject("excel.application") Set xlWkb = xlApp.Workbooks.Open("******") xlWkb.RunAutoMacros 1 xlApp.Run ("UpdateAll") monthEnd = xlApp.cells(2,7).value xlApp.ActiveWorkbook.SaveAs strSaveFile & "Monthly Revenue Report " & Year(Now) […]