我在Windows 7上有一台客户端计算机,可以完全重新安装Office、Windows更新和扫描/清除。
当我向Outlook添加多个电子邮件帐户时,关闭Outlook并打开它,并再次关闭它,它将永远不会再次出现。
它将继续抛出以下错误:
cannot start microsoft outlook 2016. cannot open the outlook window. the set of folders...
我已经在谷歌的前5页的每一个列表,并需要关于如何解决这个问题的想法。
电子邮件帐户是基于Exchange的。
现在,我删除所有的帐户,但原来的,它将重新启动。
我现在有一个来删除邮件中的所有附件,除了一种特定文件类型的附件(不是我的代码,在这里的几篇文章中不完整),它工作得很好。
Dim objSelection As Outlook.Selection
Dim i, n As Long
Dim objMail As Outlook.MailItem
Dim objAttachment As Outlook.Attachment
Dim strFileType As String
'Get the selected emails
Set objSelection = Outlook.
我已经写了一个工作代码,以某种格式答复电子邮件,但结果是丢失了一些信息,最后收到的电子邮件在Html正文(从,发送,到,抄送,主题。我甚至不确定这是否被称为邮件标题)。
如果我点击Outlook 2013默认的“回复”按钮,这些信息将在上一封电子邮件之前自动生成,而上面则是我的回复内容。
那么,我应该使用哪个函数来调用这些信息呢?信息必须出现在我的所有回复,所以我需要弄清楚它的方式或其他方式。我的代码:
'there is a getsignature function before the code.
Public Sub my_reply()
Dim objOL As Outloo
几天前,我在Exim4中接收来自特定主机的电子邮件时出错。
像这样的错误出现在我的日志中:
SMTP connection lost after final dot H=example.com [IP-ADDRESS] P=esmtp
SMTP connection from example.com [IP-ADDRES] lost while reading message data (header)
这是我的服务器还是发送电子邮件的服务器的问题?
其他服务(如Gmail或Outlook )不会显示此错误,并且通常会收到。
我编写了一些VBA宏来下载outlook.I的所有附件。我使用以下代码来实现这一点:
Public Sub SaveAttachments()
Dim objOL As Outlook.Application
Dim objMsg As Outlook.MailItem
Dim objAttachments As Outlook.Attachments
Dim objSelection As Outlook.Selection
Dim i As Long
Dim lngCount As Long
Dim strFile As String
Dim strFold
我有一个带有VBA代码的Excel文件,可以根据特定的excel单元格内容发送outlook邮件,但是它给了我一个编译错误。
代码的前几行是直接从VBE复制的,如下所示:
Dim OutApp As Object
Dim OutMail As Object
Dim impname As String
Dim leadname As String
Dim subje As String
Dim ns As Namespace
Dim myOlSel As Outlook.Selection
"Dim As Namespace“中的错误显示
直到最后三天,这段代码一直运行良好,但现在它显示
我看到一个奇怪的问题,电子邮件被发送到大多数电子邮件地址,但是对于一些人来说,除了这个例外,他们失败了。
连接尝试失败,原因是连接方在一段时间后没有正确响应,或者已建立的连接失败,原因是连接主机未能响应。
成功发送电子邮件的SMTP日志(删除敏感数据)
Connected to smtp://HOST_NAME_GOES_HERE:25/?starttls=when-available
S: 220 HOST_ID.mail.protection.outlook.com Microsoft ESMTP MAIL Service ready at Thu, 8 Jul 2021 16:17:2
我正在尝试使用Do...Until循环发送电子邮件。我对VBA一点经验都没有,我只是想弄清楚如何从excel发送电子邮件,并让代码停在空格或0处(因为我正在使用其他工作簿中的引用来保持更新)。
我也尝试过将其更改为For...Next语句,但不起作用。
Sub SendEmail(what_address As String, subject_line As String, mail_body
As String)
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application
我有一个表从行1到200和从列A到T的数据,我需要VBA代码发送电子邮件提醒给多个收件人。表中有一些日期,我使用了if条件,并通过定义一个将返回"YES"的列来到达。无论何时出现YES,都应以相应的主题(Column C)发送相应的邮件(Column K) 我能够创建、定义和创建邮件并发送邮件。但无法使用for循环和IF条件匹配条件并使用.to = ""发送到收件人列表 Sub Sendmail()
Dim ol As Outlook.Application
Dim olmail As Outlook.MailItem
Set ol = New Outl
我想替换一些字符串在oft outlook邮件file.have写的以下代码,但oft文件有表格,这是不显示,如果我使用MyItem.HTMLBody。还有别的选择吗?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myOlApp As Outlook.Application
Dim MyItem As Outlook.MailItem
Dim up As Object
Dim a
嗨,我正在用VB开发一个小应用程序,从Access数据库中存储的电子邮件地址列表中发送单独的邮件。我使用ADODC控件来连接VB和Access。但在ADODC控制器中循环时,我收到错误消息“项目已被移动或删除”。你们能帮帮我吗?下面是我使用的代码。我想为每个地址单独发送邮件,所以不能使用.Recipients.Add命令。
Private Sub Send_Click()
Dim oOApp As Outlook.Application
Dim oOMail As Outlook.MailItem
Set oOApp = CreateObject("Outlook.App
我正在尝试自动下载outlook上的电子邮件附件。我收到一个运行时错误,我不确定如何修复它。我可能只是遗漏了一些基本的东西。我已经盯着这个看了很久了。 我尝试将MItem作为Outlook.MailItem放在子SaveAttachments的括号中,但这导致程序无法加载。 Sub SaveAttachments()
Dim oAttachment As Outlook.Attachment
Dim MItem As Outlook.MailItem
Dim sSaveFolder As String
sSaveFolder = "C:\Users\_
我正在尝试使用win32com打印Outlook中的电子邮件。唯一的问题是,当我试图访问MailItem.SentOn或MailItem.ReceivedTime时,Python崩溃了,窗口显示"Python已停止工作“对话框。导致此问题的原因是什么?
下面是我的代码:
import win32com
import win32com.client
import os
import sys
import re
from datetime import datetime
outlook = win32com.client.Dispatch("Outlook.Application
我希望你能帮我解决问题。我在VBA方面非常缺乏经验。我写了一个宏打开一封电子邮件。电子邮件中应该有一条短信。我想存储一个用于查询的电子邮件地址.可以把这封电子邮件作为链接存储吗?例如:
Dim MyMessage As Object
Dim OutlookApplication As Object
Set OutlookApplication = CreateObject("Outlook.Application")
Set MyMessage = OutlookApplication.createitem(0)
With MyMessage
.to = ....
我正在创建一个宏,以获得电子邮件的主题和收到的日期,在我们的团队共享框。我的问题是,一旦我选择日期(e,g1/16/2018至1/17/2018),只有很少的电子邮件存储在对象中。在下面的屏幕截图,我有9个项目,是应用限制方法。它应该是14个项目的电子邮件收到后,1/16/2018到现在(截图中正确的outlook邮件),但5封电子邮件没有存储在对象。有人能帮我吗?我被卡住了!
Sub GetFromOutlook()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder A
我正在创建Outlook外接程序,当邮件项关闭时,我很难检测和处理该事件。inspectors_NewInspector函数是成功地触发的(因为我可以获得电子邮件的主题和发件人),但是我根本无法调用mailItem_close()函数。
Public Class ThisAddIn
Public WithEvents inspectors As Outlook.Inspectors
Public WithEvents mailItem As Outlook.MailItem
Private Sub ThisAddIn_Startup() Handles Me.Star