Tag: outlook
将Excel VBA包含在转发的Outlook电子邮件中
我试图通过循环转发基于A列中提供的主题的电子邮件。 它的工作完美，但我也想把C列中的内容包含到每个相应的邮件中。 同时从最初的邮件中删除从和详细信息。 请求模板： 正文内容也应该使用如下所述的列值。 有人可以帮我删除，并在下面包含这些细节.. Option Explicit Public Sub Example() Dim olApp As Outlook.Application Dim olNs As Outlook.Namespace Dim Inbox As Outlook.MAPIFolder Dim Item As Variant Dim MsgFwd As MailItem Dim Items As Outlook.Items Dim Email As String Dim Email1 As String Dim ItemSubject As String Dim lngCount As Long Dim i As Long […]
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 […]
types不匹配循环扫描Outlook邮件
使用VBA循环播放Outlook收件箱时，会出现间歇性错误。 types不匹配发生在Next objOutlookMesg行上。 注意：我希望尽可能使所有代码都包含在内。 滚动到底部，查看出现错误的位置。 Private Sub CheckInbox(strFolder As String, Title As String) Dim objOutlook As Outlook.Application Dim objOutlookNS As Outlook.Namespace Dim objOutlookInbox As Outlook.Folder Dim objOutlookComp As Outlook.Folder Dim objOutlookMesg As Outlook.MailItem Dim Headers(1 To 20) As String Dim i As Integer Headers(1) = "Division:" Headers(2) = "Request:" Headers(3) = "Exception Type:" Headers(4) = […]
自动完成涉及Outlook和Excel的Windows任务的最佳语言是什么？
我需要自动化一个特定的任务，涉及： 根据一组标准从我的邮箱中提取邮件 – 来自特定用户，具有特定的主题行模式等。 parsing每封邮件的邮件正文并提取一些内容（邮件具有几乎固定的模式） 用一个特定的模板创build一个Excel工作表（前两行是常量，第三行是本周的星期一和星期五，等等），然后将上面提取的内容粘贴到这个表单中。 使用不同格式的相同内容创buildOutlook电子邮件 用这个邮件附上上面的Excel工作表。 （最后发送它，但我不想自动化这部分 – 我喜欢在发送邮件之前仔细检查一下。） 现在，当我想到自动化这个任务的时候，Perl的Win32 :: OLE在我最近了解到它的时候就开始思考了，而且在Perl中非常舒服。 但是之后，我认为Visual Basic for Automation可能更适合这个任务，因为它是为这些任务创build的语言。 我的问题是，VBA是否足够抵消Perl和VB之间的技能差异？ 几年前我还在小孩玩过VB6，但这是关于我的VB体验的程度。 我也愿意接受任何其他语言/平台的build议，只要它们具有一定的灵活性，而且不会太难学。 我也知道一些Python。 我看着这个 ，也是这个 ， 这个 ， 这个 ，但是他们不相关，或者没有任何好的答案。
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 […]
Microsoft Office互操作程序集引用
我有一个在Visual Studio 2005中开发的应用程序，我使用ClickOnce进行部署。 我的解决scheme包含两个项目 – 用VB编写的用户界面层和用C＃编码的类库。 我的C＃类库有一些代码使用Outlook和Excel互操作程序集（Microsoft.Office.Interop.Outlook和Microsoft.Office.Interop.Excel，都是版本11）。 这是我的问题。 虽然我没有find这是绝对的，我的理解是，你必须有相应版本的Office应用程序（Outlook / Excel）才能安装使用Interop程序集的应用程序。 它是否正确？ 如果（1. =是）那么 你将如何处理你的应用程序使用Interop汇编程序的情况，只有几个function，只有less数总用户群才能使用？ 为什么我必须要求我的应用程序的每个用户安装Microsoft Office，如果只有一些用户需要使用这些function？ 这些互操作程序集只是.dll文件，所以它们与其他软件不同之处在于，无论客户端安装了什么软件，您都不能只将该文件发布到项目中并满足参考要求。 （很明显，我对GAC的理解很差，对Visual Studio的行为有影响）。我很乐意编写自己的代码来检查所需的Office软件是否存在less数使用它们的function。 没有办公室，没有访问function… 其他 如果我对此的理解不正确，那么如何设置我的引用和ClickOnce设置，以便用户在安装尝试时不会遇到以下错误？ “无法安装或运行应用程序，应用程序需要首先在全局程序集caching（GAC）中安装程序集版本11.0.0.0。 请联系您的系统pipe理员。“ 我已经尝试将我的Interop引用CopyLocal属性设置为True和False。 在我的ClickOnce应用程序文件列表中，我已经尝试将这些程序集设置为包含，排除和先决条件。 在我的研究中，我已经看到有些人将这些引用指向* C：\ WINDOWS \ assembly \ GAC *，指向* C：\ Program Files \ Microsoft Visual Studio 9.0 \ Office \ PIA \ Office11的Visual Studio工具*但我还没有find改变参考path的方法。 根据http://msdn.microsoft.com/en-us/library/ez524kew(VS.80).aspx你不能添加来自GAC的引用，所以其他人如何pipe理它？ 我已经尝试从* C：\ Program Files […]
使用Excel中的VBA打开Outlook Mail .msg文件
我试图打开使用VBA指定的目录.msg文件，但我不断收到一个运行时错误。 代码我有： Sub bla() Dim objOL As Object Dim Msg As Object Set objOL = CreateObject("Outlook.Application") inPath = "C:\Users\SiliconPlus\Desktop\Si+ Contact Lists\Contact_Si+" thisFile = Dir(inPath & "\*.msg") Set Msg = objOL.CreateItemFromTemplate(thisFile) ' now use msg to get at the email parts MsgBox Msg.Subject Set objOL = Nothing Set Msg = Nothing End Sub 这是运行时错误： 运行时错误“-2147287038（80030002）”： 无法打开文件：AUTO […]
为什么Excel VBA在Outlookclosures时运行速度更快？
所以我一直注意到，当Outlookclosures时，我写的VBA代码运行速度明显加快。 这不是一个零星的事情：我可以用Outlook运行相同的代码10倍，每次打开一个体验速度显着较慢的处理速度，然后closuresOutlook并运行10次，每次都体验到更快的速度。 我也注意到，除了在代码运行的时候Excel“不响应”，零星的Outlook也是如此。 我知道Outlook是由Word支持的，所以如果我在Word中运行代码，这对我来说是有意义的。 但是，我的Excel VBA没有使用Outlook或Word。 这可能是什么原因？ Excel和Outlook共享一些相同的过程？ 我试过谷歌search无济于事。
如何使用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 = […]
