从网上发送电子邮件而不占用网页
我有一个处理工作请求的Web应用程序.它通过电子邮件向涉及的新,更改和完成的请求发送电子邮件.问题是,当它发送电子邮件时,该页面需要加载一段时间.没有电子邮件过程,它可以正常工作.我正在使用CDO直接从代码范围内发送消息.有没有更好的方法不会绑定网页? 更改请求后,我考虑过可能独立运行EXE.有没有一种方法可以将脚本进行处理可以处理电子邮件的脚本,但是继续使用网页加载来继续使用,因此被炮击的脚本独立于页面的代码? 独立运行. 解决方案 您可以考虑在数据库表中排队电子邮件或专用服务读取的文本文件. 将电子邮件写到数据库或文本文件将很快,服务只需要检查一次更改. 问题是,您无法通知用户电子邮件未发送,尽管您将遇到同样的问题,试图执行另一个程序.
6 2024-04-24
编程技术问答社区
如何在VB6中使用CDO(协作数据对象)读取电子邮件和检索附件?
是否有人能够下载包含cdo附件的电子邮件? 你能帮我一个例子吗? 解决方案 我仍然不确定您要从哪里检索电子邮件,但这里有一些用于从Exchange Server检索电子邮件的代码.我这样做是作为一个实验,以了解我在另一个项目上需要的一些方法,因此它不是生产质量,而应该让您入门. 此代码取决于已经在计算机上设置的Exchange客户端. 此功能创建一个会话并登录: Function Util_CreateSessionAndLogon(Optional LogOnName As Variant) As Boolean On Error GoTo err_CreateSessionAndLogon Set objSession = CreateObject("MAPI.Session") objSession.Logon , , False, False Util_CreateSessionAndLogon = True
0 2024-03-18
编程技术问答社区
ASP嵌入图像到CDO.Message电子邮件中
我正在使用ASP Classic和CDO使用CreateMHTMLBody方法发送电子邮件.我的电子邮件中有几张图像,其中一些图像是静态的,不会改变,但是其中一些会根据电子邮件内容更改.一些邮件软件(例如iCloud)将图片显示为附件,即使我将它们都带有完整的路线URL地址.我已经使用了AddRelatedBodyPart,但是现在他们在您必须的地方显示了图像,但他们仍然在附件中显示图像.我希望图片只是在电子邮件正文中显示,而不是在附件中显示.有谁知道如何解决这一问题?这是我的代码的示例: Set myMail=CreateObject("CDO.Message") myMail.Subject= "Subject of Email" myMail.From= "from@site.com" myMail.To= "to@site.com" myMail.CreateMHTMLBody "http://www.mysite.com/email.html" strImagePath
6 2024-03-16
编程技术问答社区
ASP邮件错误。此订阅的事件类在一个无效的分区中
我有一些我从我的前任"继承"的ASP代码(不,这不是一个更新它的选择……这不仅会采取国会的行为,而且还采用其他每个国外的行为),我在其中一个页面上发送邮件的问题.这是另一个页面几乎相同的代码段,但是当我尝试"发送"时,这会引发错误. 代码下面: Set myMail=CreateObject("CDO.Message") myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 'Name or IP of remote SMTP server myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="localhost" 'Server port myMail.Configuration.Fields.Item
18 2024-03-16
编程技术问答社区
cdo消息在请求收据时不会发送
我正在编写经典ASP(是的,请原谅我),该应用程序使用Google邮件发送电子邮件.我这样的工作正常: Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
10 2024-03-16
编程技术问答社区
使用CDO在邮件正文中随机出现感叹号
我们使用经典ASP中的CDO对象在电子邮件正文中获得随机感叹(!)标记. 我们没有获得带有Outlook的感叹号.问题仅在Lotus Notes客户端出现.我们使用IIS SMTP服务器发送电子邮件. 编辑 Set myMail= Server.CreateObject("CDO.Message") myMail.Subject="Business and Company News on your Mobile Device" myMail.From="no-reply@test.com" myMail.To="some@email.com" htmlbody = htmlbody (coming runtime) myMail.BodyPart.ContentTransferEncoding = "quoted-printable" myMail.HTMLBody = htmlbody myMail.Send 我认为客户不使用SMTP.但是他们当然正在使用last
6 2024-03-16
编程技术问答社区
CDO.Message发送方法的未知邮件代码
我正在尝试通过VBScript发送电子邮件.这是我的电子邮件代码: 我当然隐藏了电子邮件地址.在我的实际代码中,我正在使用有效的电子邮件地址. Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") objCDO.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.oa.caiso.com" objCDO.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDO.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDO.Conf
10 2024-03-16
编程技术问答社区
用CDO通过Google Apps发送邮件时,出现传输错误。CDO.Message.1 error '80040213'
我正在尝试使用Google Apps帐户作为SMTP服务器从传统经典ASP脚本发送联系人查询电子邮件.我必须测试的代码如下: Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/co
2 2024-03-16
编程技术问答社区
在Windows和Mac上通过VBA宏发送带有工作簿的电子邮件
我的以下代码在PC上正常工作,但在Mac上不起作用.我希望该脚本能够识别当前的操作系统并运行该操作系统的适当命令集. 宏创建带有工作簿附件的电子邮件.附件是ActiveWorkbook的临时版本,在发送电子邮件后将删除. 我目前正在使用电子邮件的方法是Windows CDO.当它在Mac OSX上执行使用Office 2016时,我还应该注意其他考虑吗? Private Message As CDO.Message Private Attachment, Expression, Matches, FilenameMatch, i Sub enviar_mail() Dim wb1 As Workbook Dim TempFilePath As String Dim TempFileName As String Dim FileExtStr As String With Application .Screen
6 2023-12-05
编程技术问答社区
在VBScript中处理COM事件的取消
我想编写一个脚本,该脚本通过我们的公司SMTP服务器发送电子邮件. 首先,我试图为此目的编写HTA应用程序,但是使它变得足够舒适变得很麻烦,以便其他人可以很好地处理它(由于适当的接收者解决). 因此,现在我尝试使用常规的Outlook邮件蒙版首先准备邮件,然后通过VBScript捕获Send-Item事件,以将其内容提供给我的CDO脚本. 现在,我的代码看起来像这样: Dim OutlookApplication Dim MailItem Const olDiscard = 1 Const olMailItem = 0 Set OutlookApplication = WScript.CreateObject("Outlook.Application", "Outlook_") Set MailItem = OutlookApplication.CreateItem(olMailItem) MailItem.Display '(...) some code t
0 2023-11-17
编程技术问答社区
发送邮件时VBScript错误'80040211'。
发送电子邮件时有错误: "错误'80040211'" 这是我的代码的示例 - Dim objMessage Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Super Service Comment - " objMessage.From = "someone@s.com" objMessage.To = "someone1@s.zendesk.com;someone2@s.com" objMessage.TextBody = "Name...." objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/
8 2023-11-17
编程技术问答社区
CDOSYS和Unicode在从字段中的作用
我已经有以下代码,并且我正在尝试设置从字段设置以允许Unicode.目前在我的电子邮件客户端中我得到了"?". 主题行和任何内容都正确显示了Unicode.查看MSDN,该属性应为"urn:schemas:httpmail:from". 有人解决了这个问题吗? Dim AC_EMAIL : AC_EMAIL = "test@test.com" Dim AC_EMAIL_FROM : AC_EMAIL_FROM = "测试 " Dim strSubject : strSubject = """测试"" testing testing" set oMessage = WScript.CreateObject("CDO.Message") With oMessage .BodyPart.charset = "utf-8" 'unicode-1-1-utf-8 .Fields("urn:schemas:httpmail:from
8 2023-11-17
编程技术问答社区
如何用vbscript在Exchange中使用CDO?
我正在尝试使用Exchange帐户设置脚本来发送电子邮件.我想将CDO(或同等)与VBScript一起使用.目标是通过Exchange帐户的发送文件夹跟踪电子邮件通信. 我正在使用Exchange2007. 解决方案 使用Microsoft NTLM() Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). Const cdoAnonymous = 0 'Do not authenticate Const cdoBasic = 1 'basic (clear-text) authentication Const cdoNTLM = 2 'NTLM dim objEmai
16 2023-11-17
编程技术问答社区
excel vba cdo邮件电子邮件发送帐户的工作越来越少…
herllo 我一直在尝试使用一些CDO消息VBA编码来自动发送短电子邮件.所有这些都是用于私人使用的,每天不超过几封电子邮件.电子邮件要么是给我家人的人,要么是我要与之共享编码的其他人,例如在免费帮助论坛上. 我的宏肯定有效,过去非常可靠. 最近,我发现越来越多的电子邮件帐户不再有效.因此,我必须将发送电子邮件帐户替换为另一个. 我的帐户用尽了. 新帐户要么不起作用,要么只工作几次,然后进一步尝试会出现各种错误. 我正在使用的所有供应商的不同帐户都具有相同的设置,在某些情况下,以前以相似的方式使用了不同的帐户.但是有些帐户仍然可以在CDO消息发送中工作,而另一些帐户则不起作用.似乎是随机的,哪些工作且无法使用,越来越多地工作的趋势. 除了自动化Q/A以外,我无法从电子邮件提供商那里找到任何帮助,而这些Q/A无法解决我的问题,或者无用的时间浪费电话帮助行 任何人都可以推荐一个电子邮件帐户提供商,他们在CDO消息宏中找到其帐户始终如一地工作. 我想我知道大多数所需的
8 2023-11-16
编程技术问答社区
在VBA中使用CDO.sys dll来发送消息会使Excel冻结
我正在使用cdo.sys遇到一个奇怪的问题,用于从启用VBA的Excel应用程序中发送电子邮件. 我已经使用了以下代码,可以在 https://wwww.rondebruin.nl/win/s1/cdo.htm : Sub SendMailCDO(FSubject As String, FBody As String, FFrom As String, FTo As String, FCc As String) Dim iMsg As Object Dim iConf As Object Dim Flds As Variant Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") iConf.Load -1 ' CDO Source Defaults Set Flds = iConf.Fields
2 2023-11-16
编程技术问答社区
Excel VBA CDO邮件
我正在尝试使用Microsoft Office Excel 2007 VBA代码发送邮件,但我会遇到错误: 运行时错误'-2147220973(80040213)': 自动化错误 我正在使用的代码是: Dim cdomsg As Object Set cdomsg = CreateObject("CDO.message") With cdomsg.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 25 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
48 2023-11-16
编程技术问答社区
如何在Outlook 2010中向HTML邮件中添加嵌入式图片
我有Office 2003 VBA代码,该代码使用此处描述的技术使用无证件的MAPI属性和CDO 1.21的HTML消息中的图像. cdo 1.21不再得到支持,而是 >现在,它的大部分功能已纳入Outlook 2010对象模型. 在哪里可以找到使用Outlook 2010对象模型在Outlook 2010中嵌入图像的示例? 解决方案 找到答案在这里.. 关键位是: Const PR_ATTACH_MIME_TAG = "http://schemas.microsoft.com/mapi/proptag/0x370E001E" Const PR_ATTACH_CONTENT_ID = "http://schemas.microsoft.com/mapi/proptag/0x3712001E" Const PR_ATTACHMENT_HIDDEN = "http://schemas.microsoft.com/mapi/pro
12 2023-11-15
编程技术问答社区
使用SSL连接发送CDO电子邮件
我有一个ASP页面,该页面通过CDO通过电子邮件发送表单的详细信息.到目前为止,我已经在与Hmail服务器的明确连接上使用SMTP端口25进行了此操作. 我现在需要使用SSL连接.我创建了一个安全证书,并设置了Hmail服务器以使用端口465和SSL. 但是,由于某种原因,当我尝试发送表格时,我会收到错误500,并且没有发送电子邮件. 我也尝试了端口587,但也不起作用. 我使用的CDO代码如下: If request.Form("submit") "" then Set myMail=CreateObject("CDO.Message") myMail.Subject="xxxxxxx" myMail.From=Request.Form("email") myMail.To= "xxxxxxxxxxx" myMail.TextBody = "Name:"& Request.Form("name")& vbcrlf & vbcrlf & _ "E
22 2023-09-27
编程技术问答社区
VBScript SMTP自动电子邮件
我有一个脚本可以自动通过电子邮件发送一个存储在Excel中的地址列表,但它仅发送到第一个地址而不循环到其余地址,我似乎无法修复它: Set objMessage = CreateObject("CDO.Message") Set app = CreateObject("Excel.Application") Set fso = CreateObject("Scripting.FileSystemObject") For Each f In fso.GetFolder("Y:\Billing_Common\autoemail").Files If LCase(fso.GetExtensionName(f)) = "xls" Then Set wb = app.Workbooks.Open(f.Path) set sh = wb.Sheets("Auto Email Script") row = 2 email = sh.Range("A" & row) LastRo
12 2023-09-05
编程技术问答社区
当通过SMTP发送邮件时,我得到了 "传输失败,无法连接到服务器"
我有以下代码使用CDO从VBA宏发送邮件.我在代码中有一个错误: 运输无法连接到服务器错误 我正在发送Gmail SMTP服务的邮件.看起来配置正确设置了,但某种程度上不起作用. Sub Email() Dim CDO_Mail As Object Dim CDO_Config As Object Dim SMTP_Config As Variant Dim strSubject As String Dim strFrom As String Dim strTo As String Dim strCc As String Dim strBcc As String Dim strBody As String strSubject = "Results from Excel Spreadsheet" strFrom = "xxx@gmail.com" strTo = "xxx
38 2023-09-05
编程技术问答社区