Tag: outlook 2010

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

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

从Excel VBA编辑Outlook电子邮件

我已经得到了下面的代码，以成功地使用我的机器（fileName）本地保存的预制Outlook模板，并将活动Excel文档附加到它，但是有一些额外的文本，我想添加到电子邮件模板，以节省我复制和粘贴的时间。 有没有办法将额外的正文文本添加到预先创build的电子邮件模板，或者如果我可以让我的VBA代码读取正文文本，然后我可以通过将其存储在一个临时variables添加到它？ 这是一个保存的.msg文件 Public Function GenerateEmail(sendTo As String, _ sendCC As String, sendBCC As String, _ subjectText As String, fileName As String) Application.ScreenUpdating = False Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItemFromTemplate(fileName) With OutMail .sendTo = sendToText .CC = sendCCText .BCC = sendBCCText .Subject = subjectText […]

excel VBA从excel中replaceOutlook OFT文件中的文本

在Excel中，我有三列： A: B: C: UserName UsermailAddress RecordToBeDeleted 我在Excel中使用下面的代码从Outlook（使用OFT文件）发送和电子邮件到Excel电子表格的B列中的每个电子邮件地址。 只要发送到列B中的每个电子邮件地址，我所使用的代码就可以工作 我RecordToBeDeleted的问题是，在电子邮件（OFT文件）中，我有两个关键字（ UserName和RecordToBeDeleted ），我需要在与该邮件地址一起使用的每封电子邮件中进行replace。 代码findOFT文件中的两个关键字，但只删除它们或用空条目replace它们。 我做错了什么，以便我可以replaceOFT邮件中的excel文件中的单词。 我在Excel表中的VBA是： Sub RunEmails() Dim i As Integer Dim rngCell As Range For Each rngCell In Range("A2", "A" & CStr(Cells(Rows.Count, "A").End(xlUp).Row)) Call DoTest(rngCell.Offset(0, 1).Value, "JDoe@abc.com", rngCell.Offset(0, 2).Value, rngCell.Value) Next rngCell End Sub Sub DoTest(EmailAddress As String, CCAddress As String, RecordToBeDeleted As String, […]

800A0401 – 预期的声明结束

我已经创build了一个.vbs文件来在Outlook中创build一个文件夹。 我已经从MSDN中复制了大部分脚本，并获得了“预期的语句结束”错误代码800A0401响应。 Option Explicit Dim myNameSpace As Outlook.NameSpace Dim myFolder As Outlook.Folder Dim myNewFolder As Outlook.Folder Set myNameSpace = Application.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox) Set myNewFolder = myFolder.Folders.Add("Postini") Wscript.Echo "Folder created" Wscript.Quit 以前从未创build.vbs脚本。 不知道我错过了什么。 Windows 7 64位和Outlook 2010.以本地pipe理员身份运行。

SentOnBehalfOf不能在Excel 2010 VBA代码中工作

我正在使用Excel 2010中的Outlook通过VBA脚本工作。一切运行良好，但有一个例外：.SentOnBehalfofName行将不起作用。 这是完整的代码 Sub Mail() ' Working in Office 2010-2013 Dim OutApp As Outlook.Application Dim OutMail As Outlook.MailItem Dim strbody As String ' This is for the Body of the email Dim signature As String ' This is for the email signature On Error Resume Next 'Set OutMail = Nothing 'Set OutApp = Nothing Dim […]

代码从Outlook下载附件，将其保存在桌面上并打开它

这是Outlook中的代码自动设置Outlook中的规则以保存带有date戳记的附件（Excel）： Public Sub saveAttachtoDisk(itm As Outlook.MailItem) Dim objAtt As Outlook.Attachment Dim saveFolder As String Dim dateFormat dateFormat = Format(Now, "yyyy-mm-dd H-mm") saveFolder = "c:\Users\abc1\Desktop\" For Each objAtt In itm.Attachments objAtt.SaveAsFile saveFolder & "\" & dateFormat & objAtt.DisplayName Set objAtt = Nothing Next End Sub 下一步，我想要的是打开附件一旦保存。 那可能吗？ 这个怎么样？ Public Sub saveAttachtoDisk(itm As Outlook.MailItem) Dim objAtt As […]

在excel文件中设置单元格的值在打开多个excel文件时出错

我想在outlook中写一个macros来检查是否excel文件打开，如果这个文件没有打开，打开它并为单元格（1,1）设置值。 否则，如果它打开，只需设置单元格（1,1）的值不需要再次打开。 我这样做，它运行良好。 这是我的源代码这样做 Sub test_3() Dim objExcel As Object Dim WB As Object Dim WS As Object If (IsWorkBookOpen("C:\Users\sang\Desktop\Book2.xlsm") = True) Then 'check whether is file opening? if yes Set objExcel = GetObject(, "Excel.Application") objExcel.Visible = True Set WB = objExcel.Workbooks("Book2.xlsm") WB.Activate Else 'file is not opening Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True […]

Outlook 2010规则是否对从Excel VBA发送的邮件运行？

我在Excel VBA中具有以下基本电子邮件代码： Dim OutAppUser As Object Dim OutMailUser As Object Set OutAppUser = CreateObject("Outlook.Application") Set OutMailUser = OutAppUser.CreateItem(0) With OutMailUser .To = Range("Ctl_Req_Email").Value .CC = "" .BCC = "" .Subject = TempFNUser .ReadReceiptRequested = False .Body = userEmailText .Attachments.Add FullTempNameUser .Send 'Use .Send or .Display End With 这个macros的工作簿是广泛分布的，但实际的电子邮件macros的驱动是由只有几个，现在的电子邮件地址，这样做已经改变。 我创build了一个“发送邮件之后”的Outlook规则，为新的电子邮件地址添加了“CC”作为redirect电子邮件的方式。 该规则完全适用于手动testing电子邮件，但是似乎不适用于从Excel VBA代码发送的电子邮件。 为了允许规则运行，是否需要在VBA代码上添加其他的代码来发送邮件？