如何用VB/VBA在OutLook中打开一个“新建邮件”窗口

yushufei

请教一下各位朋友，如何用VB/VBA在OutLook中打开一个“新建邮件”窗口？我在OL中创建了工具条和按钮，想在点击按钮后弹出“新建邮件”窗口并抓取邮件的内容？

有什么方法吗？先谢过了！！！

wangrunqun

Dim objOL As Object
Dim itmNewMail As Object
'引用Microsoft Outlook 物件模型
Set objOL = CreateObject("Outlook.Application")
Set itmNewMail = objOL.CreateItem(olMailItem)

With itmNewMail

.Subject = "chijanzen Mail Test" '主旨
.Body = Range("B2").text          '本文
.To = "xxxx@xxx.com" '收件者
.Display '啟動視窗
End With

On Error GoTo continue
SendEmail:
AppActivate itmNewMail
DoEvents
'SendKeys "%s", Wait:=True
DoEvents
AppActivate itmNewMail
GoTo SendEmail '发送不成功誓不罢休
continue:
On Error GoTo 0
Set objOL = Nothing
Set itmNewMail = Nothing

UFO的神话1314

怎么使发送的时候有个性签名啊。。。

likeslh

UFO的神话1314 发表于 2012-12-12 12:28
怎么使发送的时候有个性签名啊。。。

1. Public Function Sig() As String
   
2.     Dim sigPath$, fn$, fname$
   
3.     Dim f As Object
   
4.     Dim i%
   
5.     i = 0
   
6.     Dim s$
   
7.    
   
8.     sigPath = "C:\Documents and Settings" & Environ("username") & "\Application Data\Microsoft\Signatures"
   
9.     If Dir(sigPath & "*.htm") <> "" Then
   
10.         fn = Dir(sigPath & "*.htm")
    
11.         fname = sigPath & fn
    
12.         
    
13.         '&para;&thorn;&frac12;&oslash;&Ouml;&AElig;&para;&Aacute;&Egrave;&iexcl;·&frac12;·¨
    
14.         Open fname For Input As #1
    
15.         Do While Not EOF(1)
    
16.             Line Input #1, s
    
17.             Sig = Sig & s
    
18.             i = i + 1
    
19.         Loop
    
20.         Close #1
    
21.     Else
    
22.         Sig = ""
    
23.     End If
    
24. End Function

复制代码

以上函数把签名读到Sig字符串里，然后可以随便用了。