我正在使用Excel在Outlook中编写电子邮件,并且运行良好。
Dim template As Outlook.MailItem, tomerge As Outlook.MailItem
' Create E-mail
tomerge.Close olSave
然后,电子邮件可以手动移动到草稿文件夹和。
'Loop through items in Drafts folder
objDrafts.Item(i).Send
然而,许多用户在他们的草稿文件夹中有一堆他们不想发送的额外草稿。
如果我将"olFolderDrafts“替换为"olFolderOutb
我有一个sub来起草一封电子邮件,并将该电子邮件移动到共享收件箱。但是,当我尝试.Display草稿的电子邮件时,它并没有打开实际的电子邮件。相反,它会打开/创建邮件的新副本,最终会出现在我自己的草稿中。你知道如何打开共享收件箱中的草稿电子邮件来编辑/发送它吗?任何帮助都将不胜感激。 Dim outlookApp As Outlook.Application
Dim myMail As Outlook.MailItem
Dim mySharedFolder AS Outlook.MAPIFolder
Dim mySharedInbox As Outlook.Folder
Dim myAcco
我创建了一个Excel宏,该宏使用模板生成电子邮件,并将其保存在草稿文件夹中,以便由我的团队成员发送。
当发送消息时,它会返回地址无效的消息。
地址是正确的。手动填写电子邮件。
Sub create_email()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim OutAccount As Outlook.Account
For linha = 2 To 16
Set OutApp = CreateObject("Outlook.Application")
Set O
我有一个Outlook宏,当某人发送电子邮件并要求他们选择分类时,它会弹出一个表单。在ThisOutlookSession下,我有:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim frm As classificationForm
Dim chosenvalue As String
Set frm = New classificationForm
frm.Show vbModal
我有一个Excel UserForm,它在单击按钮时生成Outlook,用户手动单击邮件上的send选项。
系统将在Excel数据库中注册电子邮件内容(只有当用户通过Withevents类单击Outlook中的Send选项时)。
如果数据库不可用,则会有一条错误消息提示用户。提示符没有显示给用户( Outlook电子邮件涵盖),因为Excel代码正在处理,电子邮件发送过程将等待它完成。
是否有任何方式显示Outlook顶部的消息框或运行代码以保存到数据库,但只在单击Send选项之后?
用户表单中用于填充和显示Outlook中的电子邮件的代码。
Public itmevt As New CMai
我在Excel中有一个电子邮件I列表,并且存储了一些草稿。
我试图发送特定的草稿到电子邮件ids的列表,根据草案的主题行。
当我有多个草稿时,在行.copy和.send上有一个错误,但当只有一个草稿时就不会出现错误。
Sub eng()
Dim lDraftItem, myOutlook, myNameSpace, myFolders, myDraftsFolder
Set myOutlook = CreateObject("Outlook.Application")
Set myNameSpace = myOutlook.GetNamespace(
我有一个C#控制台应用程序,可以动态创建一堆电子邮件,并将它们保存到Outlook2013的草稿文件夹中。但是,我遇到了这样一个问题:我创建的项目不仅在“草稿”文件夹中创建,而且还在“发件箱”文件夹中创建了一个空白项目(为每个已填写的草稿项目创建一个空白的“发件箱”项目)。
作为比较,当我尝试使用UI创建电子邮件草稿时,它按预期工作。我创建了一个新的电子邮件,单击保存,该项目只出现在草稿文件夹中。当我尝试以编程方式完成此操作时,将创建发件箱项目。
下面是我用来创建电子邮件的C#代码:
Outlook.Application app = new Outlook.Application();
Ou
我正在做一个外接程序,当电子邮件发送时运行。如果消息包含特定文本,则取消发送消息并将其移动到草稿中。这在直接从Outlook发送电子邮件时有效,但当电子邮件由另一个程序生成并通过Outlook发送时,它不会运行。在这种情况下,电子邮件发送到发件箱几秒钟,然后发送正常。
Private Sub OnItemSend(Item As System.Object, ByRef Cancel As Boolean) _
Handles Application.ItemSend
Dim mail As Outlook.MailItem = TryCast
我有一个第三方软件,通过Outlook发送电子邮件。它允许我们指定一个“回复”电子邮件地址,而不是“从”电子邮件地址。我试图在VBA中写一些东西,注意到消息何时来自第三方软件,并在发送电子邮件之前使用“回发”地址作为“发件人”地址。当我用第三方软件发送电子邮件时,我很难触发任何事件。
如果我用
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
MsgBox "Test"
End Sub
当我通过Outlook发送电子邮件时,它会触发消息框,而当第三方软件发送邮件时不会触发消息框
我已经在Outlook2013中创建了一个用户表单,它将根据Application_ItemSend操作打开。用户表单只是请求一个网络驱动器位置来保存正在发送的电子邮件的副本,检查该位置是否存在,然后将电子邮件的副本(作为.msg)保存到该位置,并在文件名中包含一些具体信息(日期、时间等)。OK按钮上的代码如下所示(其中txtProjNum是用户窗体上的文本框)。
Private Sub butOK_Click()
Dim oMail As Outlook.MailItem
Dim sPath As String
Dim dtDate As Date
Dim sName As String