outlook-vba

    1热度

    1回答

    我在Outlook中有2个帐户,一个是我的个人,另一个是共享的。我想阅读或阅读我的共享邮箱中的未读邮件。我有一个正在使用我的电子邮件收件箱的代码,但没有与我的共享电子邮件组一起工作。 它显示错误enter image description here 我的代码如下: Sub OutlookTesting() Dim folders As Outlook.folders Dim Folder A

    0热度

    1回答

    我从用户那里获得交换在线地址,但我想转换或以某种方式获取它们的SMTP地址。 我不知道如何从Email1Address获取SMTP地址。 Set objOL = CreateObject("Outlook.Application") Set objNS = objOL.GetNamespace("MAPI") Set objContactsFolder = objNS.GetDefaultFo

    0热度

    1回答

    我正在开发一个脚本来格式化Outlook模板并通过单击按钮发送它。 主要目标是在间距之后/之前使用单行距离和0pt,并将模板上的所有内容控件(例如ComboBoxes)转换为文本/字符串。 Sub FormatAndSend() Dim CurrentMessage As Outlook.MailItem If TypeName(Application.ActiveWindo

    0热度

    2回答

    我想捕获电子邮件在创建后进行了首次修改的日期和时间(例如添加了类别标记)。是否可以添加FirstModificationTime属性到MailItem object - 类似于现有的LastModificationTime?怎么做?任何帮助将不胜感激。

    0热度

    2回答

    我想使用宏回复与Outlook模板内联的消息。 我目前使用下面的代码来执行模板的回复,但是这会打开弹出式回复窗口。 Sub Reply_Scripting() Dim origEmail As MailItem Dim replyEmail As MailItem Set origEmail = Application.ActiveWindow.Selection.I

    1热度

    1回答

    我尝试了以下两种方式来添加多个与会者,但只有最后一个电子邮件地址在.To区域中声明。 测试1:失败 .RequiredAttendees = "[email protected];" .RequiredAttendees = "[email protected]" 测试2:失败 .RequiredAttendees = "[email protected]; [email prot

    1热度

    1回答

    我已经编写了一个工作代码来以某种格式回复电子邮件,但是结果缺少Html正文中收到的最后一封电子邮件的一些信息(发件人,发件人, ,cc,主题我甚至不确定这是否称为邮件标题)。 如果我点击Outlook 2013的默认“回复”按钮,这些信息将在最后一封电子邮件之前自动生成,而上面的信息将是我的回复内容。 那么我应该使用哪个函数来调用这些信息呢?信息必须出现在我的所有回复中,所以我需要从某种方式或其他

    0热度

    2回答

    请参阅下面的代码。我无法获取今天日期和日历约会的代码。 Option Explicit Private Sub Workbook_Open() On Error GoTo ErrHand: Application.ScreenUpdating = False 'This is an enumeration value in context of getDefaultS

    0热度

    1回答

    我想通过一个Excel VBA宏转储从Outlook整个GAL 我调整了代码从下面的链接适合我的需要在Excel中: Excel Dump GAL 我能提取最常见的领域,但是我需要在以下帮助: 在Outlook中,当我们用鼠标右键单击联系人&选择“打开Outlook属性”,我们得到如下窗口: Contact's Outlook Properties 在这个窗口中有一个我要为用户提取的“注释”字段。

    1热度

    1回答

    ,所以我工作的一个项目,以自动发送电子邮件带有附件更换主题。主题必须有一个特定的名字,但直至现在我无法得到的最后一部分工作。 Private WithEvents Mail As Outlook.MailItem Private WithEvents Inspectors As Outlook.Inspectors Private Sub Application_Startup()