Tag: outlook

在Outlook邮件中添加多个CC

我有这一行代码，我试图在Outlook邮件中添加多个CC。 但它只是返回; 。 我在MSDN上find了这个示例。 Dim ccMail as String Dim ccRow as Long Dim objMail as Object ccRow = Cells(Rows.count, 16).End(xlUp).Row With objMail .Subject = Sheet1.TextBox1.Value For k = 4 To ccRow ccMail = ccMail & ";" & Cells(k, 1).Value Next k .cc = ccMail end with 所有的CC收件人都可以在P列中find任何帮助？谢谢。

如何在电子邮件VBA Excel中插入链接

我已经创build了一个macros，在条件满足时向某些人发送电子邮件。 但是，在电子邮件正文中，我想插入Link而不是http://blabla.com 。 你知道我怎么能做到这一点？ 链接在我的单元格B4上，这是下面的代码。 Public Sub email_missing_forecast() Application.ScreenUpdating = False 'Déclaration des variables derniereligne = Range("B5000").End(xlUp).Row Project_number = Cells(1, 2).Value Project_name = Cells(2, 2).Value Project_due = Cells(3, 2).Value lien = Cells(4, 2).Value Dim Objoutlook As New Outlook.Application Dim Objectmail 'Condition For i = 6 To derniereligne Adresse = Cells(i, "D").Value Adresse2 = Cells(i, "E").Value […]

使用两个电子邮件地址使用vba复制Outlook中的电子邮件主题为Excel？

我有两个电子邮件地址。 第一个是address1@domain.com.vn ，第二个是address2@domain.com.vn 。 我想复制在第二个地址address2@domain.com.vn微软Outlook的电子邮件主题优秀使用VBA。 我使用波纹pipe代码，但它不工作。 Sub GetFromInbox() Dim olapp As Outlook.Application Dim olNs As Namespace Dim Fldr As MAPIFolder Dim olMail As Variant Dim Pst_Folder_Name Dim MailboxName 'Dim date1 As Date Dim i As Integer Sheets("sheet1").Visible = True Sheets("sheet1").Select Cells.Select Selection.ClearContents Cells(1, 1).Value = "Date" Set olapp = New Outlook.Application Set olNs = olapp.GetNamespace("MAPI") […]

Excelmacros – 尝试的操作失败。 一个对象无法find

任何人都可以帮助我解决这个问题。 我已经创build了一个macros，它将读取我的Outlook电子邮件，并提取值和标题（主题时间发送等）他们去我的Excel表单之一。 这个工具已经在工作。 不过，我认为在某些地方我的Outlook有某些事情发生，代码不再工作，并提示错误“尝试的操作失败，找不到对象”。 只能通过代码读取的文件夹的位置在“收件箱/ TIBCO报告文件夹”中。 错误是在线提示 Set olFolder = olFolder.Folders(1).Folders("Inbox").Folders("TIBCO Reports Folder") 这是代码的一部分： Dim olApp As Object Dim olFolder As Object Dim olMailItem As Object Dim strTo As String Dim strFrom As String Dim dateSent As Variant Dim dateReceived As Variant Dim strSubject As String Dim strBody As String Dim date1 As Date Dim […]

VBA从Excel中search已发送邮件中的Outlook 2010邮件

我需要一个Excel VBAsearch当前date发送的已发邮件中的Outlook 2010邮件，并将其作为“任务已完成”（有时候，主题可能会有一个额外的文本，如任务在07/01/2017完成或任务已完成01/09 / 2017年）; 如果find，然后从指定的path打开一个Excel文件。 我在Googlesearch中发现了这个Outlook VBA代码，它显示了search到的邮件，但是我希望代码能够在通配符search选项中运行，并打开excel。 我尝试使用通配符“ * ”search主题，例如“语法错误/编译错误”中的“任务完成* ”和“任务已完成并格式化（date，”dd / mm / yyyy“）” Sub Test() Dim olApp As Outlook.Application Dim olNs As NameSpace Dim Fldr As MAPIFolder Dim olMail As Outlook.MailItem Dim i As Integer Set olApp = New Outlook.Application Set olNs = olApp.GetNamespace("MAPI") Set Fldr = olNs.GetDefaultFolder(olFolderSentMail) i = 1 For […]

发送单个电子邮件给多个邮件的收件人

我有一个macros，我写了一个用户在列1中放入一个数字列表的macros，然后他们按下一个button，打开一个表单，让他们为Outlook电子邮件select各种参数，包括电子邮件应该发送给谁。 然后在电子邮件中发送这个数字列表。 我想改变macros，所以用户把列表中的数字列1，并在第2列他们把收件人。 然后用相应的号码向每个收件人发送一封电子邮件。 为列中的每个号码创build一个新的电子邮件很容易，但可能有多个电子邮件发送到同一个收件人，这将不被很好地接收。 这也是非常低效的。 我想让我的macros组成员打算给同一个人的号码，然后每个不同的收件人发送一封电子邮件。 示例数据： 1 RecipientA 2 RecipientB 3 RecipientA 4 RecipientC 5 RecipientA 我想发一个电子邮件给收件人A 1/3/5，B 2，C 4。 我不一定需要实际的代码帮助，我只是想不出一个办法来做到这一点。 任何人都可以提出解决scheme吗？

outlook新的电子邮件到Excel行

我想创build一个C＃控制台应用程序（或一个服务 – 不知道如何开发一个服务）： 1）在收件箱> LOTALogs文件夹中收到新电子邮件时知道。 此电子邮件由移动应用程序发送，包含附件和客户遇到的一些问题。 2）使用逗号分隔的新电子邮件内容parsing附加内容到已设置列的Excel工作表中。 我设法创造： 1）parsing器： public static string[] emailContentsArray() { string content = "Username = Customer1,User ID = 362592,Unit ID = 805618,Date = Mar 12, 2017,Device = Android LGE LG-H990,OS version = 7.0 (API 24),App version = 1.0.0.56,Description = some description,Message = some message"; string[] contentArray = content.Split(','); // Case where […]

parsing电子邮件正文最后find的权利

我有以下types的电子邮件： 我正在提取名称和城市，但我也想提取每个领域的问题：名称因为是错误和城市因为它不能被读取 到现在为止，我可以提取每个电子邮件的总体问题 – 第一次遭遇。 Sub Problems() Dim myOlApp As New Outlook.Application Dim myNameSpace As Outlook.NameSpace Dim myInbox As Outlook.MAPIFolder Dim myitems As Outlook.items Dim myitem As Object Dim Found As Boolean Set myNameSpace = myOlApp.GetNamespace("MAPI") Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox) Set myitems = GetFolderPatharchive("aaa\bbb").items Found = False Dim olkMsg As Object, _ olkFld As Object, […]

EXCEL VBA，手动Outlook电子邮件发件人，类模块问题

我仍然在处理我在第一个关于这个主题的问题中所描述的问题 。 简短的刷新，它是一个Excel文件，其中包含电子邮件模板和附件的列表，对每个列表单元我添加打开给定单元的模板的button，使有一些变化，然后附加文件，并显示邮件到用户。 用户可以根据需要修改邮件，然后发送或不发送邮件。 我已经尝试了下面描述的几种方法。 不幸的是，我现在在类模块的问题上停滞不前， 这里简要描述。 我已经创build了一个类模块，比如'EmailWatcher'，甚至与这里描述的方法做一个小的组合： Option Explicit Public WithEvents TheMail As Outlook.MailItem Private Sub Class_Terminate() Debug.Print "Terminate " & Now() End Sub Public Sub INIT(x As Outlook.MailItem) Set TheMail = x End Sub Private Sub x_Send(Cancel As Boolean) Debug.Print "Send " & Now() ThisWorkbook.Worksheets(1).Range("J5") = Now() 'enter code here End Sub Private […]

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 […]