outlookvba教程,outlook2010 联系人卡片 vba怎么调用

outlookvba教程,outlook2010 联系人卡片 vba怎么调用详细介绍

本文目录一览： VBA求助：如何复制excel表格到outlook邮件？

1、点新建。
2、光标定位在正文区，点插入菜单——表格，选择行*列表格，例如：2*3表格。
3、复制相同单元格数的excel。
Microsoft Office Outlook是微软办公软件套装的组件之一，它对Windows自带的Outlook express的功能进行了扩充。Outlook的功能很多，可以用它来收发电子邮件、管理联系人信息、记日记、安排日程、分配任务。目前最新版为Outlook 2016。
插入一个模块，然后复制粘贴以下语句，然后将你的语句里的.HTMLBody = MailBody改为.HTMLBody = RangetoHTML(MailBody)即可。
Public Function RangetoHTML(rng As Range)
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Workbook
TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
rng.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
On Error Resume Next
.DrawingObjects.Visible = True
.DrawingObjects.Delete
On Error GoTo 0
End With
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.ReadAll
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
"align=left x:publishsource=")
TempWB.Close savechanges:=False
Kill TempFile
Set ts = Nothing
Set fso = Nothing
Set TempWB = Nothing
End Function
在OUTLOOk邮件中插入可操作的excel表格的步骤（以OUTLOOk2007为例）：
1、点新建；
2、光标定位在正文区，点插入菜单——表格，选择行*列表格，例如：2*3表格；
3、复制相同单元格数的excel
收件人：填写对方E-mail地址；
主题：填写发送邮件标题；
点发送。

如何用VBA代码控制OUTLOOK发送邮件

'我一直是这样用的Sub SendMail()Set myOlApp = CreateObject("Outlook.Application")Set objMail = myOlApp.CreateItem(olMailItem)With objMail .To = "收件人邮箱地址" .Subject = "邮件主题" .Body = "邮件正文内容" .Attachments.Add "附件完整路径，如：D:\1.docx" .SendEnd WithEnd Sub运行正常，已经用了一年多了。放在excel或word里都行。

OutLook 2010 怎么用VBA实现：当你写完一封邮件，点击发送时，判断有没有附件

vba 怎么调用outlook express发送邮件， 如果同时安装了Microsoft outlook，并且你可以先打开outlook express，再点击插入附件 Dim a a = Shell(
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Dim cancelsend As Long
Set myItem = myOlApp.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
If myItem.Attachments.Count = 0 Then
cancelsend = MsgBox(" 是否忘记粘贴附件了 ！" & vbNewLine & vbNewLine & " 确定要发送吗?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "忘记粘贴附件提示")
If cancelsend = vbNo Then Cancel = True
End If
End Sub

outlook2010 联系人卡片 vba怎么调用

下面的代码可以导出OUTLook联系人，从中适当修改就可以
Sub ExportVcards()Dim MyContacts As Outlook.MAPIFolderDim ContItem As Outlook.ContactItemDim FileName As StringSet MyContacts = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts) For Each ContItem In MyContacts.Items FileName = "d:\Contacts\" & ContItem.FileAs & ".vcf" '文件夹不存在会出错 ContItem.SaveAs FileName, olVCard Next End SubFor Each循环里面可以使用下面的代码获得联系人名字及邮箱：
姓名=contitem.FullName
邮箱=contitem.Email1Address ‘（最多3个邮箱）
也可以mycontacts.Items("韩 梅梅").Email1Address 从全名得到她的地址。
Gmail通讯录与Outlook通讯录进行同步操作，而往往只是要更新某个类别的用户信息。Outlook菜单只支持全部导出通讯录信息为csv文件。而当想要只输出某一类别（如"同学.高中"时）则要先输出为Excel表格，再筛选转换成csv文件。
Outlook是Office组件之一，其支持VBA自动化对象。
代码如下
Sub ExportVCards()
Dim objNS As NameSpace '命名空间
Dim objContactFolder '通讯录目录
Dim objEntry As Variant 'OEM条目
Dim objContactEntry As ContactItem '通讯录条目
Dim count As Integer '计数器
Dim CategoriesName As String '类别名称
Dim ExportFolder As String '输出目录
CategoriesName = "同学.中学"
ExportFolder = "e:\\temp\\contacts\\"

count = 0
Set objNS = Application.GetNamespace("MAPI") '连接到命令空间中，这是直接在Outlook中运用宏时获取命令句柄的方法
Set objContactFolder = objNS.GetDefaultFolder(olFolderContacts) '转到通讯录目录中

For Each objEntry In objContactFolder.Items '遍历通讯录目录
If Not TypeOf objEntry Is ContactItem Then
If TypeOf objEntry Is DistListItem Then
Debug.Print "Found a distribution list, skipping"
Else
Debug.Print "****** found a something odd ****"
Debug.Print " " & objEntry
End If
Else
Set objContactEntry = objEntry
If CategoriesName = objEntry.Categories Then
count = count + 1
path = ExportFolder & "contact" & count & ".vcf"
objContactEntry.SaveAs path, olVCard '将该条目输出到目录中
End If
End If
Next
Set objNS = Nothing
End Sub
经过上述代码后，将该类别所有的通信联系人条目输出到单个文件中，再用命令将所有文件合并起来，我采用的方法是 Cygwin 的Cat 命令，即
cat contact*.vcf > all.vcf
这样导入到Gmail后，再用Merge整合重复的人员即可

在outlook里，如何用VBA实现点击回复按钮时自动将邮件名写成指定的名称？

第一步：
添加一个类模块并命名为 ReplyHandler，复制以下代码：
Option ExplicitPrivate WithEvents mItem As MailItemPublic WithEvents myExplorer As Explorer' #########' 析构函数.' #########Private Sub Class_Terminate() If Not (mItem Is Nothing) Then Set mItem = Nothing End If If Not (myExplorer Is Nothing) Then Set myExplorer = Nothing End IfEnd Sub' #############################################################' 事件: 当用户为项目 (父对象的一个实例) 选择 "答复" 动作时发生.' #############################################################Private Sub mItem_Reply(ByVal Response As Object, _ Cancel As Boolean) Response.Subject = "[修改邮件主题为指定的名称]"End Sub' ##################################################' 事件: 选择其他或更多 Microsoft Outlook 项目时发生.' ##################################################Private Sub myExplorer_SelectionChange() Dim mySel As Selection Set mySel = myExplorer.Selection ' /* 浏览器窗口中有且只有一个项目被选中. */ If mySel.Count = 1 Then Dim objItem As Object Set objItem = mySel.Item(1) ' /* 该选中项目是邮件. */ If objItem.Class = olMail Then ' /* 动态注册邮件的 Reply 事件. */ Set mItem = objItem End If End If Set mySel = Nothing Set objItem = NothingEnd Sub' #####################################' 强制触发浏览器窗口中的选中项改变事件.' #####################################Public Sub ForceSelectionChange() Call myExplorer_SelectionChangeEnd Sub
第二步：
添加一个模块（名称只要合法就行），复制以下代码：
Option ExplicitDim rHandler As ReplyHandler' #############' 挂钩邮件回复.' #############Public Sub HookReply() Set rHandler = New ReplyHandler Set rHandler.myExplorer = Application.ActiveExplorer rHandler.ForceSelectionChangeEnd Sub' #############' 解钩邮件回复.' #############Public Sub UnhookReply() Set rHandler = NothingEnd Sub
第三步：
运行 HookReply 宏即可挂钩邮件回复，如需停止对点击 "回复" 事件的监控，那么请运行 UnhookReply 进行解钩。
最后，附上两张运行效果图：
PS：上述代码的运行环境为 Windows 7 + Outlook 2010！
--------------------------------
对此如有疑问，欢迎提出！

vba调用outlook sendusingaccount怎么用

outlook2013是可以的！在网页登录你你绑定的邮箱，在已删除邮件目录下新建文件夹试一下！然后同步过来！如果无法建立，那就是你的邮箱不支持！

outlook2007 自动打开 附件 VBA 求教

下面的SaveAttach函数可以保存附件中的文档到D盘根目录下。
用ALT+F11打开VBA编辑器插入代码：
Public Sub SaveAttach(Item As Outlook.MailItem)
SaveAttachment Item, "D:\", "*.xls;*.xlsx" '这里的D:\为要保存的路径
End Sub
Private Sub SaveAttachment(ByVal Item As Object, path$, Optional condition$ = "*")
' path为保存路径，condition为附件名匹配条件

Dim olAtt As Attachment
Dim i As Integer
If Item.Attachments.Count > 0 Then
For i = 1 To Item.Attachments.Count
Set olAtt = Item.Attachments(i)
If olAtt.FileName Like condition Then
olAtt.SaveAsFile path & olAtt.FileName
End If
Next
End If
Set olAtt = Nothing
End Sub
利用Office Outlook 2007的规则，它可以设定对满足一定条件的邮件自动运行脚本，然后选择脚本为SaveAttach函数。这样便能实现收到某些邮件时自动保存符合条件的附件到相应文件目录。

利用vba将excel数据写入outlook邮件模板里

Sub sendmail()Dim rowCount,endRowNoSet objOutlook =CreateObject("Outlook.Application")Set objMail =objOutlook.CreateItem(olMailItem)Set objMail =objOutlook.CreateItem(olMailItem)With objMail.To = Cells(1,2).Value'替换为邮件地址.Subject = Cells(2,2).Value'替换为邮件主题.Body = Cells(3,2).Value'替换为邮件内容.Attachments.Add ThisWorkbook.FullName'替换为附件.SendEnd WithSet objMail =NothingSet objOutlook =NothingEnd Sub如果是多人的话，可以加一个循环，不懂可以问我。

outlook怎么禁用vba的发送邮件功能

outlook禁用vba的发送邮件功能步骤如下：1、打开outlook，并进入“开发人员”选项卡。2、点击“VisualBasic”按钮，打开VBA编辑器。3、在VBA编辑器中，选择“这台计算机上的项目”下拉菜单中的“Outlook项目”。4、在“项目资源”窗格中，双击“这台计算机上的项目”文件夹。5、双击“此电脑”文件夹，然后双击“ClassModules”文件夹。6、在“ClassModules”文件夹中，双击名为“Application”或“Outlook”（根据Outlook版本的不同而异）的文件。7、在代码编辑器中，找到以下代码行：8、PrivateSubApplication_ItemSend(ByValItemAsObject,CancelAsBoolean)；9、将该行代码注释掉或删除，以禁用该VBA发送邮件功能。例如，可以将该行代码修改为：'PrivateSubApplication_ItemSend(ByValItemAsObject,CancelAsBoolean)；10、保存并关闭VBA编辑器。outlook是一种电子邮件客户端软件，由Microsoft开发和发布。它可以用来管理电子邮件、日历、任务和联系人等信息。outlook还包括其他功能，如日程安排、备忘录、笔记、邮件过滤和自动回复等。