我在outlook中有几个帐户。其中之一是一个交换帐户。其他的是IMAP
我正在尝试使用IMAP one by default..the outlook选项似乎没有帮助...因为-->
我正在使用VBA代码加载电子邮件内容,并触发电子邮件发送进程从excel。
即使我声明IMAP帐户为默认帐户,电子邮件仍使用exchange帐户发送。有什么想法吗?
我想从excel中的VBA中的outlook中的特定帐户发送邮件,我坚持我的代码,我反复论坛,但它仍然不起作用
我给你看我的代码,如果有人能帮我的话那就太好了
Sub SendMail()
Dim objOutlook As Object
Dim objMail As Object
Dim ws As Worksheet
Set objOutlook = CreateObject("Outlook.Application")
Set ws = ActiveSheet
Dim signature As String
Dim LstRow As Long
LstRow = ws
我有与我的前景相关的多个帐户,我正在尝试将From字段设置为我拥有的一封特定的电子邮件。查看,我应该能够通过更改SendUsingAccount属性来实现这一点,但是,我遇到了错误:root:(-2147352571,‘Type失配。’,None,1)。有人知道为什么吗?
pythoncom.CoInitialize()
outlook = win32.Dispatch("Outlook.Application")
selection = outlook.ActiveExplorer().Selection
count = selection.Count + 1
for i i
我打算将电子邮件转发给某些个人(到& CC)。这些地址是附加电子邮件作为CSV文件。
密码是
运行时错误-2147024809 (80070057)
错误显示在这一行。
objForwardMail.SendUsingAccount = objMailAccount
Sub Forwardemailstointendedrecepients(objMail As Outlook.MailItem)
Dim objForwardMail As Outlook.MailItem
Dim objRecipient As Outlook.Recipient
Di
我进入一个共享的收件箱,并以自己的身份将一封电子邮件转发给我的老板,使用HTML格式。
我编写了VBA代码,除了更改从共享邮箱电子邮件地址到我的电子邮件地址之外的每一步。
让我们将我的个人电子邮件地址称为"gwyn@email.com“和共享邮箱电子邮件地址"office@email.com”。如果我手动单击“从”字段,我可以选择自己的电子邮件地址并发送它。
Public Sub ForwardIAF()
Dim OutApp As Object
Dim OutAccount As Outlook.Account
Dim myinspector As O
当使用VBA在Outlook 2010中加载项目时,我正在尝试更改发件人帐户。我有两个帐户,一个是gmail帐户,一个是POP3帐户。
回复、全部回复和转发时,Outlook默认使用接收电子邮件的帐户。如果我通过Gmail收到一封电子邮件,我想用一个POP3帐户回复。尽管我的默认帐户是POP3帐户,但Outlook还是将其更改为Gmail。
这就是我到目前为止所拥有的。不幸的是,我得到了一个错误:运行时错误'-6936698555 (d6a70005)':你没有适当的权限来执行这个操作。
Private Sub Application_ItemLoad(ByVal Item A
我的outlook中有2个电子邮箱帐户,所以当我发送电子邮件时,如何更改电子邮件帐户?
"From"
我需要从我的电子邮件地址"anas3643@hotmail.com“发送
Sub Test_for_using()
'MVP OShon from VBATools.pl
Dim oMail As MailItem
On Error GoTo blad
Select Case TypeName(Application.ActiveWindow)
Case "Explorer": Set oMail
通过下面的VBA代码,我能够在Outlook2010功能区上创建一个新按钮,我可以通过该按钮使用我的默认电子邮件地址发送电子邮件。
现在我想在Outlook 2010的功能区上有一个类似的按钮,用于“回复/回复全部”。当“回复”或“全部回复”时,Outlook默认选择邮件地址作为邮件的发件人,但我想用默认的电子邮件地址发送我的所有电子邮件。
这就是我在本教程中找到的VBA脚本:
Public Sub New_Mail()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Appl
当ItemSend()事件中的运行时发生错误时,将发送Outlook邮件项目。在代码中放置Cancel = True甚至都不能阻止这种情况的发生。这是VBA固有的缺陷吗?
我该如何解决这个问题呢?欢迎任何想法。
Public WithEvents myApp As Outlook.Application
Sub Initialize_handler()
Set myApp = Application
End Sub
Private Sub myApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error GoTo Er
我使用Outlook Interop遍历所有帐户: var app = Marshal.GetActiveObject("Outlook.Application") as Microsoft.Office.Interop.Outlook.Application;
Microsoft.Office.Interop.Outlook._NameSpace _sessionNs = app.GetNamespace("MAPI");
foreach (Account account in _sessionNs.Accounts)
{
if (account
我想在VBA outlook 2016中写一个代码,在我发送的每封邮件中发送一个密件抄送,我有许多发件人的邮件,许多电子邮件在一个outlook帐户上。
因此,每次我从x@domaine.com发送电子邮件时,都会自动从x@domaine.com发送密件抄送电子邮件,同样,如果我从y@domain1.com发送电子邮件,也会发送密件抄送到y@domain1.com
我试过这段代码,但它不工作,并且在我的安全宏中启用了所有功能
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objReci
我想以编程方式使用给定的共享邮箱名称发送电子邮件。我不能访问smtp服务器,所以我不能使用System.Net.Mail。
我使用的是Outlook = Microsoft.Office.Interop.Outlook;
如何从共享邮箱而不是默认电子邮件地址发送电子邮件?
outlook.MailItem mail application.CreateItem(outlook.OlItemType.olMailItem) as outlook.MailItem;
try
{
if (mail.Subject.Contains("Highway Ale
我与Outlook问题堆叠,我想改变电子邮件发件人。我想用一个发件人发送Outlook的所有电子邮件。当我从Outlook更改发件人时,它工作得很好,但是当我从Outlook插件更改它时,它就不工作了。我使用以下代码:
private void adxOutlookEvents_ItemSend(object sender, ADXOlItemSendEventArgs e)
{
if (e.Item is MailItem)
{
MailItem mail = e.Item as MailItem;
mail.SentOnBehal
我已经在Outlook 2013中写了一个宏,我需要以字符串的形式检索发件人的电子邮件地址
一个简单的版本是
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim oMail As MailItem
Set oMail = Item
Dim sender as String
sender = oMail.SenderEmailAddress
End Sub
上面的效果很好。
我现在添加了一个新的电子邮件帐户到Outlook,这就是问题所在。
如果我创建一个新的电子邮件,它使用我的de
我正在努力实现:
电子邮件被发送到Outlook“已发送项目”文件夹,因此电子邮件不在“发件箱”文件夹中。
由于发送失败,电子邮件没有返回(电子邮件将在由postmaster@mail.hotmail.com发送的“收件箱”文件夹中)
以下代码用于通过Outlook从Access窗体发送电子邮件:
Private Sub cmdEmail1_Click()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim strBody As String
Dim strPDF As String
Dim
我一直在努力以编程的方式发送一封电子邮件,作为一个共享邮箱,而不是代表。
我已经尝试过这段代码,现在我记不起来了,从哪里开始,我对它做了一些修改。
Public Sub test()
Dim outApp As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Recipient
Dim Recipients As Recipients
Dim addrEntry As Outlook.AddressEntry
Dim addrEnt
我发现了一些VBA代码,它们的工作方式与我想要的完全一致。但是,我不知道如何在表后面添加一些额外的文本。
Sub esendtable()
Dim outlook As Object
Dim newEmail As Object
Dim xInspect As Object
Dim pageEditor As Object
Set outlook = CreateObject("Outlook.Application")
Set newEmail = outlook.CreateItem(0)
With newEmail
.To = ""
我的用户将其个人邮箱作为其主要帐户,并在其Outlook 2010客户端中配置了一个自动映射的共享邮箱。共享邮箱是Office 365共享邮箱,因此无法登录以将其设置为主帐户。
我正在尝试从共享帐户的地址开始新的电子邮件。
下面是我一直在尝试使用的VBA代码。我已允许在Outlook的信任中心设置中使用宏。
Public Sub New_Mail()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
For Each oAccount In Application.Session.Accounts
If oAcc
我想要发件人的emailId。
我可以通过下面的代码读取日历的所有数据,但不能读取发送者的emailId。
using Microsoft.Office.Interop.Outlook;
Microsoft.Office.Interop.Outlook.Application outlook = new Application();
Microsoft.Office.Interop.Outlook.NameSpace oNS = outlook.GetNamespace("MAPI");
oNS.Logon(Missing.Value, Missing.Value, true
我使用Excel通过Outlook发送电子邮件。我使用我的工作计算机与我的工作电子邮件作为主要帐户,但希望发送从另一个帐户已登录。
我还没有成功地集成在线找到的任何代码。
下面的代码并不是我试图修复的。
Sub Test1()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim strbody As String
For Each cell In Range("D2:D2")
strbody = strbody & cell.Value
也就是说,我讨论的是MAPIFolder、MailItem和接收者对象类型。
--额外的#en0#
以下是我拥有的一些对象:
Dim w As Outlook.Application
Dim wInbox As Outlook.MAPIFolder
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
我有使用默认Outlook帐户发送电子邮件的代码。
我尝试将代码更改为从特定的电子邮件发送。当我运行宏时,什么也没有发生。
是代码有问题,还是由于其他问题( Outlook和与之关联的帐户/权限)而无法正常工作?
Sub CommandButton1_Click()
Dim wb As Workbook
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
Dim q As Long
Dim oAccount As Outlook.Account
Set wb = ThisWorkbook
For Each oA
我正在使用子例程vba中的Outlook对象发送电子邮件
电子邮件从我的电子邮件中发送,收件人见:myemail@xxx.com。我有没有办法让这些收件人收到一封使用MyfirstName MylastName代替我的电子邮件的电子邮件
Sub Mail_Workbook_1()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
O
当我发送电子邮件时,它们是从我工作时的个人收件箱发出的,但我需要它们从我有权访问的另一个邮箱发出。我的outlook中有两个邮箱。
我可以从特定的邮箱发送电子邮件吗?
这是我正在使用的代码。它没有在我的帐户中找到第二个项目。
Sub Mail_small_Text_Change_Account()
Dim cel As Range
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim strbody As String
Set OutApp = CreateObj