Tag: 电子邮件
CDO邮件问题“传输失败连接到服务器”
我正在尝试在Excel文件中设置一个用户表单，该文件发送一封电子邮件来报告用户在电子表格中发现的任何错误/问题。 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 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") = "bugreporter@gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'smtp mail server .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'stmp server […]
从发件人帐户获取电子邮件地址
有没有办法从已login的Outlook帐户“读取”用户电子邮件地址，并在激活此macros时发送电子邮件？ Sub MailSenden() Dim olApp As Object Dim olOldBody As String Rem Email erstellen Set olApp = CreateObject("Outlook.Application") With olApp.CreateItem(0) .GetInspector.Display olOldBody = .htmlBody .To = "carsten.asdf@xxx.yy" .Subject = "Testformular" .Body = "Das ist eine e-Mail" & Chr(13) & _ "Viele Grüße…" & Chr(13) & Chr(13) .Attachments.Add "C:\Users\" & Environ$("USERNAME") & "\Desktop\" & "CSV-Export.csv" .Attachments.Add […]
从Excel 2016到Outlook 2016的复制粘贴范围如图所示
我正尝试使用VBA将Excel范围粘贴到Outlook电子邮件正文中。 但是，每当我这样做，粘贴操作的范围被切断。 原始的范围如下所示： 粘贴出现如下： 我基本上使用了Jean-FrançoisCorbett的VBA代码， 将Excel的范围粘贴到电子邮件中作为照片 。 即： Dim objOutlook As Object Dim objMail As Object Set objOutlook = CreateObject(Class:="Outlook.Application") Set objMail = objOutlook.CreateItem(0) 'Copy range of interest Dim r As Range Set r = Range("B2:E14") r.Copy 'Paste as picture in sheet and cut immediately Dim p As Picture Set p = ActiveSheet.Pictures.Paste p.Cut 'Get […]
从Excel文件发送多个收件人的Outlook电子邮件
我目前正在做一个VBAmacros，将发送一个单一的Outlook电子邮件，具有以下标准： 答：收件人被列在Sheet1的D列中，我想要的是将每个发件人连接到Outlook的TO字段。 但是，这些收件人是dynamic的，可能在数量上有所不同。 案例可能会导致从这些列中增加或减less电子邮件地址。 B.我需要将任何Sheet2的内容粘贴到Outlook的BODY字段中。 C.我需要生成带有签名的电子邮件。 到目前为止，我有这个代码，但它不工作： Option Explicit Sub SendEmail() Dim OutlookApplication As Outlook.Application Dim OutlookMailItem As Outlook.MailItem Dim outlookInspector As Outlook.Inspector Dim wdDoc As Word.Document Dim Recipient As Range Dim CC As Range Application.ScreenUpdating = False Set OutlookApplication = New Outlook.Application Set OutlookMailItem = OutlookApplication.CreateItem(0) 'On Error GoTo cleanup Workbooks("ConfigFile.xlsm").Sheets("Sheet1").Activate Range("D2").Select Set Recipient […]
Apple脚本错误609与电子邮件导出到Excel
我有兴趣使用Excel对我的电子邮件做一些基本的数据分析。 在努力find一种方法将我的收件箱/发件箱导出为Excel（.CSV）可读取的任何内容之后，我调整了一个Apple脚本，在同一点（在导出大约1300封电子邮件后）突然崩溃，并返回错误消息 错误“邮件出错：连接无效”。 号码-609 我的代码是： tell application "Microsoft Excel" set LinkRemoval to make new workbook set theSheet to active sheet of LinkRemoval set value of range "D1" of theSheet to "Message" set value of range "C1" of theSheet to "Subject" set value of range "B1" of theSheet to "From" set value of range "A1" of […]
从R发送邮件时的特殊字符
我目前的任务是向工作中的某些个案工作人员发送电子邮件。 我正在给一个Excel工作表的数据。 这些数据包含个案工作人员的电子邮件以及案件号码和说明。 我用来撰写电子邮件。 我已经创build了一个在R中导入这些数据的脚本，并且通过一系列if / else语句（来sorting要发送到哪个等等）来运行它。 我使用RDCOM包从R发送电子邮件，它工作正常。 library(RDCOMClient) OutApp <- COMCreate("Outlook.Application") outMail = OutApp$CreateItem(0) outMail[["To"]] = "some@mail.dk" outMail[["subject"]] = "some subject" outMail[["body"]] = "some body" outMail$Send() 有关从R发送电子邮件的更多信息，请参阅通过Outlook在R中发送电子邮件。 我以丹麦语工作，因此在我的邮件正文中有"æ" ， "ø"和"å"等特殊字符，有时在Excel数据中也有描述。 每当描述不包含任何特殊字符时，即使我在主体中有特殊字符，我也能够毫无问题地发送我的邮件。 但是，只要描述中包含特殊字符，我就完全搞砸了整个邮件。 为了避免这个问题的出现，我首先用Excel工作表中的所有æ (ae) ， ø (oe) ， å (aa)来代替，但是希望find一个更合适的答案来平滑过程。 一个例子可能是： library(RDCOMClient) OutApp <- COMCreate("Outlook.Application") outMail = OutApp$CreateItem(0) outMail[["To"]] = "some@mail.dk" outMail[["subject"]] = paste("Case […]
包含名称与收件人姓名相匹配的附件
我有Excel中的代码发送电子邮件到收件人列表： Sub SendEMail() Dim xEmail As String Dim xSubj As String Dim xMsg As String Dim xURL As String Dim i As Integer Dim k As Double Dim xCell As Range Dim xRg As Range Dim xTxt As String On Error Resume Next xTxt = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox("Please select the data range:", "Send […]
当Outlookclosures时，在VBA，Excel中通过MS-Outlook发送带附件的电子邮件
当我从附件发送邮件，真正的作品。 但是当我使用.Attachments.Add ActiveWorkbook.FullName参数时，它不会发送并等待打开Outlook。 我想在outlookclosures时发送邮件。 我使用下面的代码： Sub SendMail() Dim OutlookApp As Outlook.Application Dim OutlookMail As Outlook.MailItem Set OutlookApp = New Outlook.Application Set OutlookMail = OutlookApp.CreateItem(olMailItem) With OutlookMail .To = "address@domain.com" .CC = "" .BCC = "" .Subject = "M" .BodyFormat = olFormatHTML .HTMLBody = "Hi, <p> I'm sending this message from Excel using VBA.</p>Please find <strong> […]
在iPhone上添加邮件中的多个图像
我想以编程方式在邮件中附加多个图像。 有没有办法将照片作为zip文件附加到邮件中？ 有没有另一种方式发送文本和图像作为Excel支持文件在iPhone？
从Excelmacros创buildThunderbird电子邮件
我已经在Excel中编写了一个VBmacros，它使用MS Outlook创build和发送电子邮件。 所以我创build一个Outlook.Application ，然后创build一个Outlook.Application.CreateItem(olMailItem) 。 这一切工作fantastically :)但现在我已经意识到我想部署它的机器没有Outlook，并获得Outlook的许可副本不是一个选项。 那么我怎样才能让这个邮件通过Thunderbird发送呢？ 我可以使用这个启动应用程序： Dim RetVal RetVal = Shell("C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe", 1) 但我不知道如何为它创build一个邮件项目。 它不需要专门使用Thunderbird，我只是select它，因为它是一个免费的邮件客户端。
