通过vbscript打开outlook 2010

问题描述：

我想使用outlook 2010发送电子邮件，windows 7 & IE8，获取“Outlook.Application”对象所需的代码是什么？通过vbscript打开outlook 2010

我试着用的CreateObject（ “Outlook.Application”），但得到错误 “必选对象”

是的，你需要像设置oolApp =的CreateObject（“Outlook.Application”）设置电子邮件= oolApp创建对象。 CreateItem（0） – Amol 2012-02-22 09:47:19

CreateObject（“Outlook.Application”）正在返回错误号424（需要的对象） – Vikas 2012-02-22 10:04:16

你必须做什么？你想发送电子邮件或什么？ – Amol 2012-02-22 11:35:18

答

示例代码： -

' Create email object 
    Set oolApp = CreateObject("Outlook.Application") 
    Set email = oolApp.CreateItem(0) 
    email.Recipients.Add("[email protected]") 

    ' Create the body of the email 
    MailBody = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD W3 HTML//EN"">" 
    MailBody = MailBody & "<HTML>" & vbcrlf 
    MailBody = MailBody & "<HEAD><TITLE>No Invoices</TITLE></HEAD>" 
    MailBody = MailBody & "<BODY>" & vbcrlf 
    MailBody = MailBody & "<B>For Your Information</B>,<BR><BR>" 
    MailBody = MailBody & "This is Sample Email.<BR><BR>" 
    MailBody = MailBody & "</BODY></HTML>" 

    ' Send the Email 
    email.Subject = "No Invoices Issued" 
    email.HTMLBody = MailBody 
    email.Send

答

可以使用CDO是子系统发送一封电子邮件， Outlook使用。您可以在ASP Free上的文章Sending Emails Using CDO in WSH中找到更多信息。

Set objMessage = CreateObject("CDO.Message") 

' Set Email Headers 
objMessage.From = "[email protected]" 
objMessage.To = "[email protected]" 
objMessage.Subject = "No Invoices Issued" 

' Construct Email Body 
objMessage.HTMLbody = "<b>For Your Information</b>, <br><br>" _ 
        & "This is a Sample Email.<br><br>" 

objMessage.AutoGenerateTextBody = True 

' Set Server Settings 
objEmail.Configuration.Fields.Item _ 
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objEmail.Configuration.Fields.Item _ 
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mymail.com" 
objEmail.Configuration.Fields.Item _ 
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

objEmail.Configuration.Fields.Update 
objEmail.Send

答

试试这个简单的代码。

这将帮助你，直到打开Outlook和浏览你收件箱

Set objOutlook = CreateObject("Outlook.Application") 
Set objNamespace = objOutlook.GetNamespace("MAPI") 
objNamespace.Logon "Default Outlook Profile", , False, True 
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox) 
objFolder.Display 
End Sub

通过vbscript打开outlook 2010

相关推荐