Tag: 电子邮件

导出Outlook电子邮件到Excel（从StackExchange使用的代码）

我正在尝试创build一个将Outlook电子邮件迁移到Excel的程序。 大约一年前，我在这个网站上发现了一个解决这个问题的办法，一切正常，直到电子邮件正文发生变化，我不得不更新代码。 回到这里弗兰肯斯坦一些代码在一起，但现在越来越错误，在我的头在VBA。 电子邮件看起来像这样（数字被添加作为参考，并使结构相同，他们不在电子邮件中）： 名称： 你目前居住在美国吗？ 地址： 市： 州： 邮政编码： 电话： 电子邮件： 国籍： 年级： 散文字数： 学校/组织名称：教师姓名：教师电子邮件：您的学校/办学组织是否在美国？ 学校/组织地点：学校/组织所在城市：学校/组织所在州：学校/组织机构邮政编码：学校/组织电话：学校/组织电子邮件：您是如何知道本次比赛的？ 作文文件： 旧的代码直到这个段落。 所以我发现新的代码运行通过段落，只是把它添加 旧代码： Sub CopyToExcel() Dim xlApp As Object Dim xlWB As Object Dim xlSheet As Object Dim olItem As Outlook.MailItem Dim vText As Variant Dim vPara As Variant Dim sText As String Dim vItem As Variant […]

使用VBA将其从Outlook导入到Excel时，是否可以从电子邮件正文中删除签名？

我想知道是否有可能从电子邮件正文删除签名时，将该电子邮件导入到Excel中？ 我尝试了Tony Dallimore提出的这个早期发布的主题的解决scheme，将Outlook中的电子邮件导入到excel中。

函数调用后，将.gif文件embedded到电子邮件正文中

我正试图在邮件正文中embedded.gif文件。 但是我使用RangetoHTML函数将我的Excel工作表的范围粘贴到电子邮件正文中。 我想embedded邮件正文范围下的.gif文件，而不是添加MyGif.gif作为附件。 以下是代码片段： Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) dt = Format(CStr(Now), "yyyy_mm_dd") With Dest .SaveAs Destination & "MyFile" & FileExtStr, FileFormat:=FileFormatNum On Error Resume Next With OutMail .To = "abc@email.com" .CC = "" .BCC = "" .Subject = "This is the Subject line" .Attachments.Add MyGif .HTMLBody = "<br><B>My HTML Body</B><br>" _ […]

VBA从Excel发送电子邮件（根据条件）

我是一个绝对的初学者，并尝试在我的同事日常工作中促进几个任务。 我想创build一个代码，从Excel文件发送提醒邮件的信息。 这个想法是，Excel应该检查第12行的每一行，并检查是否有一个“x”写在一列中，标记哪一行我想发送提醒。 使用下面的代码，我可以生成所有的电子邮件，但我有困难在哪里和如何包括if（'单元格（s，6）.Value =“x”然后'），以便Excel继续通过所有填满的行。 非常感谢您的帮助！ Sub SendReminderMail() Dim s As Long Dim OutLookApp As Object Dim OutLookMailItem As Object Dim iCounter As Integer Dim MailDest As String If MsgBox("Are you sure?", vbYesNo) = vbNo Then Exit Sub Set OutLookApp = CreateObject("Outlook.application") Set OutLookMailItem = OutLookApp.CreateItem(0) s = 12 Do Until Trim$(Cells(s, 1).Value) = "" […]

读取到CC和BCC属性时出错

我试图将所有的电子邮件提取到外部程序（AIMMS）。 我首先将其全部存储在Excel中以供阅读。 我写了一些VBA代码。 当多个电子邮件地址在此字段中时， .Tofunction不起作用（给出即时错误）。 .CC和.BCC也是如此。 Sub Extract_mail(MailBoxName As String, Pst_Folder_Name As String, Subfolder As String) 'Add Tools->References->"Microsoft Outlook nn.n Object Library" Dim folders As Outlook.folders Dim Folder As Outlook.MAPIFolder Dim iRow As Integer Dim objMItem As MailItem If Subfolder = "" Then Set Folder = Outlook.Session.folders(MailBoxName).folders(Pst_Folder_Name) Else Set Folder = Outlook.Session.folders(MailBoxName).folders(Pst_Folder_Name).folders(Subfolder) End If If […]

电子邮件多个收件人VBA错误

寻求帮助发送电子邮件的人的名单。 我的代码有一个简单的循环，并在每次发送电子邮件的位置抓取值。 在testing的时候，第一封电子邮件总是会被发送。 之后，第二次通过我的错误“.To” Run-time error – '-2147221238 (8004010a):项目已被移动或删除。 这令我感到困惑，因为代码确实可以抓取下一个电子邮件的值？ 电子邮件需要逐个发送，而不是将收件人添加到密件抄送列表。 这可能与VBA？ 提前致谢！ Sub TestingAgain() 'Setting up the Excel variables. Dim outApp As Object Dim outMailItem As Object Dim iCounter As Integer Dim sDest As String Dim sName As String 'Create the Outlook application and the empty email. Set outApp = CreateObject("Outlook.Application") Set outMailItem = […]

使用VBA将Outlook电子邮件中的富文本表复制到Excel？

我正在为我工​​作的公司build立一个自动化stream程。 我已经设立了人力资源系统，发出一个在不久的将来会休假的员工的富文本表格 （只有格式）。 人力资源系统能够存储每个月的时间假期，PTO和病假时间。 我在SQL中编写了一个代码，让系统发出一个月度表，列出下个月有空rest的所有员工。 我正试图采取这些信息，并将其填充到我们的Outlook日历中。 目前，我已经设置了一个Excel表格，在信息被复制并粘贴到表格中后，该表格将填入一个人员日历。 理想情况下，我希望将这些信息自动复制到Excel工作表或设置一个从Outlook中创build约会的系统。 我现在有点难住。 我以前所有的努力都是失败的。 当谈到VBA时，我是一个小菜鸟，所以我能得到的任何帮助将不胜感激。 谢谢。 电子邮件看起来像这样有很多控制（蓝色的行是标题和放置在它下面的行中的信息）：

添加用户表单input到电子邮件正文的电子邮件VBA代码

我需要能够从Excel发送电子邮件，但是我希望电子邮件正文包含用户表单中的值，然后按下提交。 我已经尝试了不同的事情，但我坚持下面的代码。 Dim aOutlook As Object Dim aEmail As Object Dim rngeAddresses As Range, rngeCell As Range, strRecipients As String Set aOutlook = CreateObject("Outlook.Application") Set aEmail = aOutlook.CreateItem(0) 'set Importance aEmail.Importance = 2 'Set Subject aEmail.Subject = "TestMailSend" 'Set Body for mail aEmail.Body = "Campaign Name" & Me.ComboBox5.Value "Job Number" & Me.ComboBox4.Value "Revenue" & Me.ComboBox3.Value […]

附加文件的macros问题

这个想法是附加一个Excel文件，使用Attachment.Add引用我使用macros获取的列表。 macros读取文件夹中的文件并将其显示在列中。 从那一栏我想通过Excel附加这些文件。 我一直在下面的线上发生错误。 .Attachments.Add Filelist & "\" & "Attch" 谁能帮忙？ Sub Sendemailusingword() Dim Olapp As Outlook.Application Dim Olemail As Outlook.MailItem Dim olmail As Object Dim olinsp As Outlook.Inspector Dim wddoc As Word.Document Dim count As Integer Dim x As Integer Dim Filelist As String Dim Attch As String x = 1 row_number = 7 […]

Opencart根据新的订单发送定制的电子邮件

我需要生成一个Excel文件，并通过电子邮件发送给店主新订单。 我已经在public_html / catalog / model / checkout / order.php中插入了这段代码 //emails have been changed on purpose $email_to = "my email"; $mail2 = new Mail(); $mail2->protocol = $this->config->get('config_mail_protocol'); $mail2->parameter = $this->config->get('config_mail_parameter'); $mail2->hostname = $this->config->get('config_smtp_host'); $mail2->username = $this->config->get('config_smtp_username'); $mail2->password = $this->config->get('config_smtp_password'); $mail2->port = $this->config->get('config_smtp_port'); $mail2->timeout = $this->config->get('config_smtp_timeout'); $mail2->setTo($email_to); $mail2->setFrom("info@storename.com"); $mail2->setSender("info@storename.com"); $mail2->setSubject("test send mail"); $mail2->setText("test message body text"); […]