Tag: 电子邮件

VBA电子邮件粘贴图表和正文中的文本

以下代码的目标是将选定的图表粘贴到我的文本下方的电子邮件正文中 。 但是，它仍然粘贴在我的文字上方。 我怎样才能改变它，使其粘贴下面？ 谢谢！ Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .CC = "xyz@anc.com" .BCC = "abc@xyz.com" .Subject = "Test" .Body = "Dear" & "Macro " ActiveSheet.Range("P36:X46").Copy Set wEditor = OutApp.ActiveInspector.WordEditor wEditor.Application.Selection.Paste .display

Excel VBA：发送的Outlook电子邮件不包括粘贴范围

我最初回答的问题如何只在电子邮件正文中粘贴可见的单元格 我testing和发布的代码（见下文）不包括发送电子邮件。 在OP添加了他的问题之后，我添加了.Send部分，但是我得到的行为非常奇怪。 如果我在发送之前放置一个断点，然后执行Sub ，就会使用正确的信息（包括粘贴的Excel Range ）创build一个电子邮件。 然后我继续执行，电子邮件正确发送。 但是，如果我一次运行整个Sub ，没有断点，电子邮件发送没有粘贴Excel Range内的身体。 这是什么原因，解决scheme是什么？ 我已经尝试了评论/取消注释最后两行（ Set … = Nothing ），但是没有帮助。 相关问题： 从Excel中将单元格的范围复制到Outlook中的电子邮件正文 将格式化的Excel范围粘贴到Outlook邮件中 参考代码（根据Ron de Bruin的典型代码，参见本文和本文 ）： Sub SendEmail() Dim OutlookApp As Object 'Dim OutlookApp As Outlook.Application Dim MItem As Object 'Dim MItem As Outlook.MailItem 'Create Outlook object Set OutlookApp = CreateObject("Outlook.Application") 'Set OutlookApp = New Outlook.Application […]

VBA：select第一个过滤的单元格，然后移到下一个单元格

我想要做的事似乎对我来说很简单，但我找不到一个办法。 我有一个Excel电子表格，其中有很多联系方式，例如： ABCDE 1 Select who you would to like to email: * Drop down list * 2 Name: Company: Role: Email Address1: Email Address2: 3 Michael Jackson Jackson 5 Singer MJ@J5.com Michael@J5.com 4 Brian May Queen Guitarist BM@Queen.com Brian@Queen.com 5 Kurt Cobain Nirvana Singer KC@Nirvana.com Kurt@Nirvana.com 6 Freddie Mercury Queen Singer FM@Queen.co.uk Freddie@Queen.com 7 […]

PHP创buildExcel电子表格，然后将其作为附件通过电子邮件发送

我使用下面的代码： <?php $data = $_REQUEST['datatodisplay']; header("Content-Type: application/vnd.ms-excel"); header("Content-Disposition: attachment; filename=Data.xls"); header("Pragma: no-cache"); header("Expires: 0"); echo $data; ?> 这是我在用户点击一个提交button时调用的。 但是我感兴趣的是发送Excel电子表格作为电子邮件附件。 所以在下面的这个文件中，我将连接到一个数据库，select结果并创build电子表格，然后将其作为附件邮寄。 这是可能的调整下面的代码（我可以做的MySQL，但只是不创build）

VBAoutlook。 尝试从电子邮件正文中提取特定数据并导出到Excel

我已经在这里find了很多指导，让我到目前的位置，但是我需要一些帮助来完成我的代码（我是一个完全的新手，所以对我很感兴趣）。 我正在尝试在Outlook中使用VBA来从我的Outlook的某个文件夹中的电子邮件中导出数据以优化。 我需要从众多电子邮件的消息正文中提取数据到Excel表单中。 我从中提取的电子邮件模板可以在下面find。 我需要参考号后面的10位数字，序列号后面的10位数字以及问题描述后的7位数字。 （如果不清楚的话，我会把需要的部分加粗） 尊敬的先生/小姐xxxxxxxx， ——————不需要信息—————– 参考号1234567890 。 状态：—-不需要信息—– 序列号： XXXXXXXXXX问题描述： ______________（这里的数据可能略有不同，我只能从这个区域拉出一个7位数的号码，但是如果不能这样做的话就这样吧）_______ 用这个…。 —————–其余是不需要的———————– 到目前为止，我已经能够创build一个脚本来浏览我当前所在的Outlook文件夹，打开Excel工作表，在Excel中命名标题，并导入数据。 但是，它将整个身体拉到不只是我需要的部分，而是把它们放在excel中错误的列中。 这是因为我是一个完整的新手在这一点，我可以得到。 我在这个网站上find了一些与解决scheme类似的问题的例子，但我无法理解它们。 通过大量的试验和错误，我采取了张贴自己，任何帮助将不胜感激。 这是我现在的代码 – Sub Extract() On Error Resume Next Set myOlApp = Outlook.Application Set mynamespace = myOlApp.GetNamespace("mapi") 'open the current folder, I want to be able to name a specific folder if possible… Set myfolder […]

如何使用Outlook将电子邮件发送给Excel VBA中的多个收件人

我正试图在Excel表单上设置几个button来向不同的人群发送电子邮件。 我在单独的工作表上创build了几个单元格范围来列出单独的电子邮件地址。 例如，我想要“buttonA”打开Outlook，并将“工作表B：单元格D3-D6”中的电子邮件地址列表。 然后，所有必须做的是在Outlook中点击“发送”。 这是我的VBA代码到目前为止，但我无法得到它的工作。 有人能告诉我我错过了什么，或者错了吗？ VB： Sub Mail_workbook_Outlook_1() 'Working in 2000-2010 'This example send the last saved version of the Activeworkbook Dim OutApp As Object Dim OutMail As Object EmailTo = Worksheets("Selections").Range("D3:D6") Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = EmailTo .CC = "person1@email.com;person2@email.com" .BCC = […]