outlook2010通过宏输入正文

caimengran · 发表于 2011-8-11 12:00

outlook2010希望通过宏在正问部分输入一些文字，例如你好，outlook2003用的语句
Selection.TypeText Text:="你好"
此段代码在word2003 2010 outlook2003中都可以使用，按理说outlook所用的宏就是word的宏，为什么outlook2010不能使，查了下，貌似outlook2010中没有typetext属性，请问，此段应该怎么写
在此先谢谢各位老大了！

dsd999 · 发表于 2011-8-11 14:00

为什么不用 mailitem的body。

caimengran · 发表于 2011-8-11 15:31

怎么弄老大帮忙具体点

dsd999 · 发表于 2011-8-11 15:40

dim mItem as mailitem
mItem .body = '你好'

caimengran · 发表于 2011-8-17 10:37

本帖最后由 caimengran 于 2011-8-17 11:11 编辑

dsd999 发表于 2011-8-11 15:40
dim mItem as mailitem
mItem .body = '你好'

Sub rk()
'
' rk 宏
'
'
' Selection.TypeText Text:="问好："
   Dim mItem As MailItem
      mItem .Body = "你好"

End Sub

这样运行的结果是  提示body  是无效或不合格引用
还提示
运行时错误91
对象变量或with快变量未设置

我是在新建邮件里建的宏，邮件格式是html

由于本人对宏的了解比较浅就知道基本功能，所以麻烦您了，谢谢！

dsd999 · 发表于 2011-8-17 11:29

先说说你的要求

caimengran · 发表于 2011-8-17 11:36

哦我现在是每天都要在一封邮件的基础上回复
您好：
视频以提供
以前用的是
Selection.TypeText Text:="您好："
Selection.TypeParagraph
Selection.TypeText Text:=vbTab & "视频以提供"
但是outlook2010不能这么用
我用您说的那个方法就提示刚才的问题了，因为每天都要回复个4-5次，每次都打字太麻烦了
所以...
麻烦您了

liheyong · 发表于 2011-8-17 11:57

caimengran 发表于 2011-8-17 11:36
哦我现在是每天都要在一封邮件的基础上回复
您好：
视频以提供

Sub CreateHTMLMail()
'Creates a new e-mail item and modifies its properties.
Dim objMail As Outlook.MailItem

'Create e-mail item
Set objMail = Application.CreateItem(olMailItem)
With objMail
      'Set body format to HTML
      .BodyFormat = olFormatHTML
      .HTMLBody = _
         "<HTML><BODY>您好：<BODY><BODY>视频以提供</BODY></HTML>"
      .Display
End With
End Sub
Excel 帮助里面抄写的。

caimengran · 发表于 2011-8-17 12:03

liheyong 发表于 2011-8-17 11:57
Sub CreateHTMLMail()
'Creates a new e-mail item and modifies its properties.
Dim objMail ...

这个是在新建一个邮件的基础上吧，我现在的需求是在回复别人邮件的基础上，谢谢！

Gemmy · 发表于 2011-8-17 13:04

本帖最后由 Gemmy 于 2011-8-17 13:10 编辑

Application.ActiveInspector.CurrentItem.HTMLBody = _
"<HTML><BODY>您好：<BODY><BODY>视频以提供</BODY></HTML>"

		自动登录	找回密码
密码			免费注册

[求助] outlook2010通过宏输入正文

回复 2楼 dsd999 的帖子