Tag: 前景

Microsoft访问从Outlook的所有文件夹中导入所有电子邮件

我想导入从Outlook访问所有文件夹中的所有电子邮件。 我能做的只是从一个特定的文件夹导入，但我想导入包含在所有文件夹中的所有电子邮件。

VBA：只需要通过Excel中的可见单元格循环

我正在创build一个基于filter创build工作簿的macros，并将它们一次一个地发送到一个电子邮件列表中，但是，每个电子邮件可能有多个位置，并且循环正在拾取（next）细胞，即使它被过滤掉。 示例表格： Location Email 1 asd@asd.com 2 asd@asd.com 3 asd@asd.com 4 qwe@qwe.com 我使用另一个工作表来筛选每个唯一的电子邮件，然后将这些位置加载到一个数组中，以便过滤一个表。 一旦表格被过滤，我将复制并粘贴到一个新的工作簿中，暂时保存，附加到电子邮件并发送出去。 问题是，当我到达第二个唯一的电子邮件，电子邮件包含来自以前的行（位置2和3），等等。 代码如下： Sub AutoEmailSend() Dim rng As ListObject Dim OutApp As Object Dim OutMail As Object Dim cell As Range Dim TempFilePath As String Dim TempFileName As String Dim TempWB As Workbook Dim LastRow As Long Set rng = Nothing On […]

如何在Outlook中密码保护电子邮件发送

我正在使用Outlook 2010桌面应用程序。 我想密码保护电子邮件发送选项，如果有人试图用我的电子邮件帐户发送电子邮件，会提示（popup）密码来validation是否是我。 我从一些朋友那里得知，我可以创build一个macros，在我的outlook中添加一个模块，过滤，也许使用VB语言或其他编码…当我离开我的桌子时，我只能激活这个filter或类似的东西然后没有人可以使用我的电子邮件帐户发送电子邮件，但我不知道我该怎么做…任何人有一个想法吗？

VBA到Outlook问题 – 不要用逗号表示数字

通过VBA生成Outlook电子邮件时遇到问题。 问题是，当VBA将信息从Excel工作表导出到Outlook时，Excel工作表中的数字将始终使用逗号将其转换为数字，而不是Excel中的原始格式。 请参阅下面的代码。 我需要在D列的一个单元格中去掉逗号。 如果d是123456，在Outlook中，它会显示123456，但我不想要逗号。 谢谢！ dim a , b, c, d, e as integer ActiveSheet.Range("A6").Value = a ActiveSheet.Range("B6").Value = b ActiveSheet.Range("C6").Value = c ActiveSheet.Range("D6").Value = d ActiveSheet.Range("E6").Value = e Set msg_range = ActiveSheet.Range("A1", "E66") Set MItem = OutlookApp.CreateItem(0) With MItem .To = toEmails .CC = ccEmails .Subject = email_subject .HTMLBody = RangetoHTML(msg_range) & "<IMG […]

Excel VBA传递文件path以例程打开Outlook

我有几个例程，我试图去一起工作。 前两个find用户的机器上的outlook.exe文件，我想第三个使用该文件来打开Outlook，如果它尚未运行。 我遇到的问题是能够将该文件的path传递到第三个例程。 这是我的代码。 任何帮助，将不胜感激。 Sub GetSubFolders() Dim fso As New FileSystemObject Dim f As Folder, sf As Folder Dim myFile As File On Error Resume Next Set f = fso.GetFolder("C:\Program Files\") For Each myFile In f Next For Each sf In f.SubFolders Call Recursive(sf) Next Set f = fso.GetFolder("C:\Program Files (x86)\") For Each myFile […]

如何记住公共variables的值，并在下次打开excel文件时使用它在outlook中使用VBA

我想问一下outlook如何记住公共variables的价值。 我的意思是当我退出outlook时，outlook还记得这个variables的值，并且在下一次我再次打开outlook的时候，它仍然是这个variables的值。

outlook vba application.goto

在Outlook 2010中我有这样的指令在我的VBA代码，只是为了把select到A1，然后保存Excel工作簿 With wbFm.Sheets(1) …………….. LastrOn = .Cells(.Rows.Count, "AQ").End(xlUp).Row For i = 6 To LastrOn Val = .Cells(i, 43).Value Set FoundCell = .Columns("A").Find(Val) If Not FoundCell Is Nothing Then .Cells(i, 44).Copy .Cells(FoundCell.Row, 14).PasteSpecial xlPasteValues <—- last cell picked up end if …………………………… Next .Range("AQ4") = "text1" .Range("AU4") = "tekst2" End With wbFm.Application.Goto wbFm.Sheets(1).Range("A1"),True Fdest = […]

杀死Outlook邮件正文中的空格

这个代码的function是复制特定范围的单元格，每个单元格（像1ML-234-1R这样的代码），并将其放在Outlook邮件主体（取自Ron de Bruin Excel自动化代码）中。 我想杀死每个单元格之前和之后出现在主体中的空格，并用逗号（，）分隔每个单元格的值。 使用修剪命令，但没有运气。 Sub Mail_Selection_Range_Outlook_Body() Dim rng As Range Dim OutApp As Object Dim OutMail As Object Set rng = Nothing On Error Resume Next 'Only the visible cells in the selection 'Set rng = Selection.SpecialCells(xlCellTypeVisible) 'You can also use a fixed range if you want Set rng = Sheets("Sheet1").Range("D1:D12").SpecialCells(xlCellTypeVisible) On Error […]

Excel VBA Outlooksearch多个标准（ID和date）

好吧，这是我的第二个线程，这个VBAsearch难题，我有。 感谢在第一个问题上帮助我的人。 此代码是从此处input链接描述派生的 好，所以我做了调整，使其search一个SharedMailbox哪些工作，但问题是，邮箱每天收到数百电子邮件，使search时间长一点，我喜欢（我们从去年年初甚至有电子邮件）。 我想强加一个第二个search条件，这次是一个date限制，就像只search2到3天的电子邮件一样。 这是我得到的： Dim outlookapp Dim olNs As Outlook.Namespace Dim Fldr As Outlook.MAPIFolder Dim olMail As Variant Dim myTasks Dim projIDsearch As String Dim myRecipient As Outlook.Recipient Dim days2ago As Date Set outlookapp = CreateObject("Outlook.Application") Set olNs = outlookapp.GetNamespace("MAPI") Set myRecipient = olNs.CreateRecipient("SharedMailboxName") myRecipient.Resolve 'Set Fldr = olNs.GetDefaultFolder(olFolderInbox).Folders("x") Set Fldr = olNs.GetSharedDefaultFolder(myRecipient, […]

VBA将Excel范围转换成图片并发送到Outlook，将文本写入正文

我想复制一个范围从受保护的Excel工作表，并将其粘贴到Outlook作为图片，写一些文本，并显示它。 我的代码首先粘贴文本，然后是图片，但同时删除文本。 但我希望两者，文本和文本下的图片（范围转换成Excel中的图片）。 任何人都可以帮助我如何得到它？ Sub Send_Email() Dim r As Range Set r = Range("NR7:OD39") Dim outlookApp As Outlook.Application Set outlookApp = CreateObject("Outlook.Application") Dim OutMail As Outlook.MailItem Set OutMail = outlookApp.CreateItem(olMailItem) Dim StrFileName As String Application.DisplayAlerts = False Application.ScreenUpdating = False Sheets("table1").Select ActiveSheet.Unprotect Password:="blabla" ActiveSheet.Outline.ShowLevels RowLevels:=8, ColumnLevels:=8 r.Select r.Copy OutMail.Display Dim Email As Word.Document Set Email […]