跳到主要内容

如何在Outlook中自动将默认文本添加到主题行? 

作者:晓阳 最后修改时间:2020-07-24

在Outlook中创建新电子邮件时,是否可以自动在主题中添加默认文本? 本文,我将讨论一些有用的方法来帮助您解决Outlook中的这项工作。

使用VBA代码将默认文本自动添加到主题行

使用 Kutools for Outlook 自动将默认文本添加到主题行


使用VBA代码将默认文本自动添加到主题行

要将默认文本自动添加到主题行,请应用以下VBA代码。

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 在 Microsoft Visual Basic应用程序 窗口,双击 本次展望会议 来自 Project1(VbaProject.OTM) 窗格以打开模式,然后将以下代码复制并粘贴到空白模块中。

VBA代码:自动将默认文本添加到主题行:

Public xFlag As Boolean
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xText As String
On Error Resume Next
If xFlag = False Then
    xText = "Skyyang-"
    If InStr(Item.Subject, xText) = False Then
L1:     xText = InputBox("Input Suject", "Kutools for Outlook", xText)
        If xText = "" Then
            xFlag = False
            Cancel = True
            Exit Sub
        End If
        Item.Subject = xText & " " & Item.Subject
        xFlag = True
        Cancel = True
    End If
Else
    xFlag = False
    xText = "Skyyang-"
    If InStr(Item.Subject, xText) = False Then
      GoTo L1
    End If
End If
End Sub

备注:在此代码中,文字“天阳”是您要默认添加到主题中的文本,请更改为您自己的文本。

doc自动向主题1添加文本

3。 然后保存并关闭代码窗口,现在,创建新电子邮件,在 字段,然后将主题文本输入 主题t行,然后单击 提交 按钮,将弹出提示框,提醒您将默认文本添加到主题行,请参见屏幕截图:

doc自动向主题2添加文本

4。 然后点击 OK 按钮,并且指定的文本已添加到主题内容之前,请参见屏幕截图:

doc自动向主题3添加文本


使用 Kutools for Outlook 自动将默认文本添加到主题行

这是一个简单的方法,也可以帮助您将默认文本添加到主题行。 用 Kutools for Outlook 实用程序,您可以快速完成此任务。

Kutools for Outlook : 带有100多个便捷的Excel加载项,可以在60天内免费试用. 

安装后 Kutools for Outlook,请这样做:

1。 启动Outlook,然后单击 库工具 > 附加选项,请参见屏幕截图:

2。 在 附加选项 对话框,单击 全新 标签,然后检查 创建新电子邮件时在主题中添加日期 选项,然后输入要自动在主题行中显示的默认文本,请参见屏幕截图:

3。 然后点击 OK 按钮,现在,当您创建新电子邮件时,您指定的默认文本已自动插入主题行,如以下屏幕截图所示:

doc自动向主题6添加文本

点击下载 Kutools for Outlook 并立即免费试用!


最佳办公生产力工具

最新消息:Kutools for Outlook 发布 免费版本!

体验全新的 Kutools for Outlook 免费版本拥有 70 多项令人难以置信的功能,您可以永久使用! 点击立即下载!

🤖 Kutools人工智能 : 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...

📧 电子邮件自动化: 自动回复(适用于 POP 和 IMAP)  /  安排发送电子邮件  /  发送电子邮件时按规则自动抄送/密件抄送  /  自动转发(高级规则)   /  自动添加问候语   /  自动将多收件人电子邮件拆分为单独的消息 ...

📨 电子邮件管理: 撤回电子邮件  /  按主题和其他人阻止诈骗电子邮件  /  删除重复的电子邮件  /  高级搜索  /  合并文件夹 ...

📁 附件专业版批量保存  /  批量分离  /  批量压缩  /  自动保存   /  自动分离  /  自动压缩 ...

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  收到重要邮件时提醒您  /  最小化 Outlook 而不是关闭 ...

👍 一键奇迹: 使用传入附件回复全部  /   反网络钓鱼电子邮件  /  🕘显示发件人的时区 ...

👩🏼‍🤝‍👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人  /  将联系人组拆分为各个组  /  删除生日提醒 ...

只需单击一下即可立即解锁 Kutools for Outlook -永久免费. 别等了, 立即下载并提高您的效率!

kutools for outlook 功能1 kutools for outlook 功能2
 

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations