Tag: outlook vba

Excel创buildoutlook会议请求，无法发送

我正在创build一个Outlook会议请求的代码，我希望它发送到被邀请者列表。 我可以创build会议请求，但我无法发送。 我可以在日历中看到会议请求。 我怎样才能发送？ 这是我的代码： Sub AddAppointments() ' Create the Outlook session Set myOutlook = CreateObject("Outlook.Application") ' Start at row 2 r = 2 Do Until Trim(Cells(r, 1).Value) = "" ' Create the AppointmentItem Set myApt = myOutlook.CreateItem(1) ' Set the appointment properties myApt.Subject = Cells(r, 1).Value myApt.Location = Cells(r, 2).Value myApt.Start = Cells(r, 3).Value […]

lockingExcel电子表格

我已经在Outlook VBA中编写了一个程序，该程序根据Excel电子表格的内容创build一些电子邮件。 这一切工作正常，但当程序终止我继续有一个“EXCEL.EXE”进程运行locking电子表格，让别人可以打开它。 在代码中，我有三个Excel对象： Dim xl As Excel.Application Dim xlwb As Excel.Workbook Dim xlsheet As Excel.Worksheet 最后，我closures工作簿并将所有variables设置为Nothing： xlwb.Close Set xlsheet = Nothing Set xlwb = Nothing Set xl = Nothing 我错过了什么？ 编辑： 这是代码的最基本的部分，包括新的“退出”行： Dim xl As Excel.Application Dim xlwb As Excel.Workbook Dim xlsheet As Excel.Worksheet Dim ol As Outlook.Application Dim Mail As MailItem Set xl […]

Object尝试获取列数时要求的错误

我是新来的VBA，我已经提出了一个错误，指出：“所需的对象”。 我试图从我的Excel工作表中的所有单元格列1，但是当我运行我的代码，它会引发错误。 这是我的代码： Public Sub emailList() 'Setting up the Excel variables. Dim olApp As Object Dim olMailItm As Object Dim iCounter As Integer Dim Dest As Variant Dim SDest As String 'Create the Outlook application and the empty email. Set olApp = CreateObject("Outlook.Application") Set olMailItm = olApp.CreateItem(0) 'Using the email, add multiple recipients, using a […]

Outlook电子邮件的身体不复制到Excel

下面的代码工作它将从指定的电子邮件打开指定的文件。 但是不会将excel中的正文消息分隔成不同的行，有什么build议吗？ For i = LBound(MyAr) To UBound(MyAr) '~~> This will give you the contents of your email '~~> on separate lines Debug.Print MyAr(i) Next i End With Const xlUp As Long = -4162 Sub ExportToExcel(MyMail As MailItem) Dim strID As String, olNS As Outlook.NameSpace Dim olMail As Outlook.MailItem Dim strFileName As String '~~> Excel […]

Outlook VBA调用Excelmacros

我有一个Outlookmacros处理电子邮件并将其粘贴到Excel中，然后调用Excelmacros进行进一步处理。 当单独调用时，这两个macros按预期工作。 但是，如果我尝试从Outlookmacros中调用Excelmacros，则电子邮件将不会粘贴到Excel工作簿中，然后在调用Excelmacros时会因为没有数据而生成错误。 任何想法为什么 xlApp.Run ("PERSONAL.XLSB!Commissions_Report_Format") 会导致数据不能从Outlook粘贴到Excel？ 只有当这行代码存在时才会出现错误。 提前致谢！ Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Option Explicit Sub PasteToExcel(item As Outlook.MailItem) Dim activeMailMessage As MailItem Dim xlApp As Excel.Application Dim Wb As Excel.Workbook Dim Ws As Excel.Worksheet 'Get a handle on the email Set activeMailMessage = ActiveExplorer.Selection.item(1) 'Copy the formatted text: activeMailMessage.GetInspector().WordEditor.Range.FormattedText.Copy […]

在多个Excel实例之一中查找工作簿

我在Outlook VBA中需要从打开的Excel工作簿（“ Workbook1 ”）中获取数据的macros。 我参考我需要select的工作簿，如下所示： Dim objApp As Excel.Application Set objApp = GetObject(, "Excel.Application") Set wb = objApp.Workbooks("Workbook1.xlsx") 但是，经常出现运行时错误9 ，VBA找不到工作簿。 我认为这个问题可能是因为我打开了多个Excel实例， VBA正在错误地查找我的工作簿 。 自从我运行许多Excels以来，对我来说有重要的独立实例。 运行多个Excel实例时，如何引用我的工作簿 ？

从Outlook中的特定文件夹导入电子邮件

我目前在Excel中使用下面的代码来访问非我自己的无人Outlook邮箱中的文件夹。 但是有没有一种方法可以在代码中设置文件夹，而不是使用文件夹select器。 Sub Launch_Pad() Dim olApp As Outlook.Application Dim olNS As Outlook.Namespace Dim olFolder As Outlook.MAPIFolder Set olApp = Outlook.Application Set olNS = olApp.GetNamespace("MAPI") Set olFolder = olNS.PickFolder n = 2 Cells.ClearContents Call ProcessFolder(olFolder) Set olNS = Nothing Set olFolder = Nothing Set olApp = Nothing Set olNS = Nothing End Sub Sub ProcessFolder(olfdStart As […]

导出到Excel的电子邮件数据 – 按接收datesorting

我正在写一个macros来导出电子邮件数据到Excel文件月度报告。 但是我已经意识到，被取出的数据并不是相应的date， 都混乱了 有些邮箱有大量的电子邮件 因此，考虑效率问题，有没有办法从最新到最旧的订单获取数据？ 以下是代码的一部分： Dim msg As Outlook.MailItem Dim nms As Outlook.NameSpace Dim fld As Outlook.MAPIFolder Dim itm As Object 'Select export folder Set nms = Application.GetNamespace("MAPI") Set fld = nms.PickFolder 'Open and activate Excel workbook. Set appExcel = CreateObject("Excel.Application") appExcel.Workbooks.Open (strSheet) Set wkb = appExcel.ActiveWorkbook Set wks = wkb.Sheets(1) wks.Activate appExcel.Application.Visible = […]

无法打开.msg文件

我有大约90.msg，我需要打开的Outlook文件，将Excel附件转换为.csv文件并保存。 目前，下面的代码是简单地打开.msgoutlook文件，但是出现错误： 我如何允许打开.msg文件。 脚本： Sub OpenMSGRenameDownloadAttachement() Dim objOL As Outlook.Application Dim Msg As Outlook.MailItem Dim MsgCount As Integer Set objOL = CreateObject("Outlook.Application") 'Change the path given month, ie. do this for Jan, Feb, April inPath = "C:\January Messages" thisFile = LCase(Dir(inPath & "\*.msg")) Do While thisFile <> "" Set Msg = objOL.Session.OpenSharedItem(thisFile) Msg.Display MsgBox Msg.Subject […]

如何在Excel VBA电子邮件中添加签名？

当用户单击一行中的单元格时，我使用此VBA代码发送电子邮件。 我想在电子邮件正文中添加一个带有图像的签名。 我怎样才能修改我的代码把这个？ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = Range("BL1").Column Then If Target.Row > 7 And Target.Value = "Take Action" Then Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) strbody = "<p style='font-family:calibri;font-size:16'>" & "Dear Sirs," & "<br><br>" & vbNewLine & vbNewLine & _ "FAO: " & "<b>" & Range("B" & ActiveCell.Row) […]