Tag: outlook
通过Excelmacros发送电子邮件时绕过Outlook安全性
我已经做了一个自动提醒从Excel发送电子邮件，由VBS文件（放置在启动文件夹）触发。 当我打开我的电脑，提醒被触发，它应该发送电子邮件，但我有一个安全错误。 这是Excelmacros： Sub Email() Dim aOutlook As Object Dim aEmail As Object Dim i As Integer For i = 1 To 100 If Cells(i, 3).Value = Date And IsEmpty(Cells(i, 7)) Then Set aOutlook = CreateObject("Outlook.Application") Set aEmail = aOutlook.CreateItem(0) aEmail.Importance = 2 aEmail.Subject = ActiveSheet.Cells(i, 4) aEmail.Body = ActiveSheet.Cells(i, 5) aEmail.To = ActiveSheet.Cells(i, 6) […]
VBScript_Not能够直接从outlook的电子邮件正文打开超链接到excel SHEET（不是整个工作簿）
背景： 我应该创build一个仪表板（在Excel中）使用VBScript，并通过电子邮件（Outlook）发送给某人。 我已经有一个仪表板（Excel）的模板。 我的脚本打开该模板excel，更新Excel今天的结果和一些超链接到一些新的文件，创build一个Excel邮件信封，并将其发送给某人。 问题： 我的脚本在仪表板excel中添加了2个超链接。 第一个链接指向一个mht文件，第二个链接指向另一个excel文件。 我把邮件发给自己并打开了。 打开电子邮件后，当我点击第一个链接（到MHT文件），它工作正常，并打开IE显示MHT文件内容。 问题是与指向一个Excel文件的第二个超链接。 这不是打开的Excel文件（我已经确保链接是正确的）。 有什么我需要改变我的代码或是否有任何Outlook设置，这将允许我直接打开链接到Excel文件？ 码： Option Explicit Dim objXL, objXb, objXs, strXlPath, strMHTLink, strExcelLink 'Dashboard Excel template strXlPath = "C:\Users\Gurman\Work\Misc\Excel Hyperlink in Outlook\test.xlsx" 'Link to MHT file strMHTLink = "C:\Users\Gurman\Work\Misc\Excel Hyperlink in Outlook\MHTFile.mht" 'Link to another Excel File strExcelLink = "C:\Users\Gurman\Work\Misc\Excel Hyperlink in Outlook\EXLFile.xlsx" 'Opening an excel(strXlPath) […]
VBScript找不到文件指定的Server 2003
我有以下代码： set app = CreateObject("Excel.Application") Set wb = app.Workbooks.Open("Y:\Billing_Common\autoemail\*.xls") set sh = wb.Sheets("Auto Email Script") row = 2 name = "Customer" email = sh.Range("A" & row) subject = "Billing" the = "the" LastRow = sh.UsedRange.Rows.Count For r = row to LastRow If App.WorkSheetFunction.CountA(sh.Rows(r)) <> 0 Then SendMessage email, name, subject, TRUE, _ NULL, "Y:\Billing_Common\autoemail\Script\energia-logo.gif", 143,393 […]
使用Excel VBA统计后续电子邮件
我正在使用Office 2013，我试图在我的一个电子邮件文件夹中计算后续项目，并将此值写入单元格。 所以我在添加Outlook对象库引用后使用下面的代码： Dim Folder As Outlook.MAPIFolder Dim objOL As Outlook.Application Set objOL = New Outlook.Application MailboxName = "mymailboxhere" Main_Folder_Name = "Inbox" Sub_Folder_Name = "Test" Set Folder = Outlook.Session.Folders(MailBoxName).Folders(Main_Folder_Name).Folders(Sub_Folder_Name) Dim itms As Outlook.Items Set itms = Folder.Items Dim FollowupItms As Outlook.Items Set FollowupItms = itms.Restrict("[FlagStatus] = 2") Followup = FollowupItms.Count Worksheets("Sheet1").Range("A1").Value = Followup 出于某种原因，即使至less有一封邮件被标记为后续邮件，我仍然会将Followup计数设置为0 。 […]
InvalidCastException – 无法转换types为“Microsoft.Office.Interop.Outlook.ApplicationClass”的COM对象
我已经编写了这个代码，使用我的.net应用程序的Outlook发送附件，这里是代码： Microsoft.Office.Interop.Outlook.Application outlook = new Microsoft.Office.Interop.Outlook.Application(); Microsoft.Office.Interop.Outlook.Application session = new Microsoft.Office.Interop.Outlook.Application(); Microsoft.Office.Interop.Outlook.NameSpace ns = outlook.Session; Outlook.MailItem mail = outlook.Application.CreateItem(Outlook.OlItemType.olMailItem) as Outlook.MailItem; mail.Subject = txtSubject.Text; mail.To = txtTo.Text; mail.Subject = txtSubject.Text; mail.Body = txtBody.Text; mail.Attachments.Add(@"c:\Users\admin\Desktop\Excel.txt", Outlook.OlAttachmentType.olByValue, Type.Missing, Type.Missing); Outlook.Accounts accounts = outlook.Session.Accounts; foreach (Outlook.Account account in accounts) { // When the e-mail address matches, send the […]
VBA：创buildoutlook全天事件预约
我试图在Excel中导出表格，以便在给定主题，开始date，结束date的Outlook中创build全天事件。 这是我有： With olAppt .AllDayEvent = True .Start = "7/29/2015" .End = "7/29/2015" .Subject = "All Day Event" .Save End With 我所得到的是一个事件，上面写着“上午12:00”，它被作为上午12:00的事件，而不是日历的UI上的全天事件（事件不应该有上午12:00在主题名称的前面，但由于某种原因，它是）。 如果点击事件详细信息，则确认全天事件checkbox已选中，并且开始结束时间为上午12:00。 我不想滚动查看用户界面上午12:00的事件，而是想要放置全天事件的顶部事件。 任何人都遇到过这个问题？ 谢谢！
为什么一个图像embedded成功的电子邮件与.Display但不是。发送？
这是我觉得很奇怪，很难解决的事情，我有以下代码： Sub EmailImage() Dim oApp As Outlook.Application Dim oEmail As MailItem Dim colAttach As Outlook.Attachments Dim oAttach As Outlook.Attachment Set oApp = CreateObject("Outlook.Application") Set oEmail = oApp.CreateItem(olMailItem) Set colAttach = oEmail.Attachments Set oAttach = colAttach.Add("C:\Users\User1\Documents\thumbs-up.jpg") oEmail.Close olSave oEmail.To = "abc@abc123.com" oEmail.HTMLBody = "<IMG alt='' hspace=0 src='cid:thumbs-up.jpg' align=baseline border=0> </BODY>" oEmail.Display Set oEmail = Nothing Set colAttach […]
在Outlook中将所选电子邮件的正文显示为一个消息框？
我正在使用Excel 2010，并创build了以下vba代码，用于查找在其主题标题中包含单词test的电子邮件，然后在Excel中显示带有该电子邮件正文的消息框： Sub GetFromInbox() Dim olApp As Outlook.Application Dim olNs As Outlook.Namespace Dim olFldr As Outlook.MAPIFolder Dim olItms As Outlook.Items Dim olMail As Variant Dim i As Long Set olApp = New Outlook.Application Set olNs = olApp.GetNamespace("MAPI") Set olFldr = olNs.GetDefaultFolder(olFolderInbox) Set olItms = olFldr.Items Set objItem = olApp.ActiveExplorer.Selection.Item(1) olItms.Sort "Subject" i = 1 For […]
通过Excel VBA以电子邮件附件forms发送的文件始终是损坏的
我正在使用以下error handling方法来保存当前打开的文件的副本，并在发生错误时将其发送到我的电子邮件。 Private Declare Function GetTempPath _ Lib "kernel32" Alias "GetTempPathA" _ (ByVal nBufferLength As Long, _ ByVal lpBuffer As String) As Long Private Const MAX_PATH As Long = 260 Sub MainSub() Dim OutApp As Object, OutMail As Object Dim wb As Workbook On Error GoTo NotifyandRepair Call Sub1 Call Sub2 Call Subn Exit Sub […]
VBA代码来select发件人和签名
在Excel中，我使用这样的代码通过Outlook开始一个电子邮件消息： Set mOutlookApp = GetObject("", "Outlook.application") Set OutMail = mOutlookApp.CreateItem(0) With OutMail .To = "blahblah@blah.com" .Subject = "More BLAH here" .HTMLBody = "Message Text" & .HTMLBody ' This preserves the Signature in the message. .Display End With 通常，当我发送（手动）电子邮件时，我可以select从非常规地址发送（通过按“发件人”button）。 另外，我可以从我保存的几个签名中select一个。 我怎样才能在VBA代码中完成这些壮举？
