オープニング2010からvbscript

私はOutlook 2010、Windows 7 & IE8を使用して電子メールを送信したいのですが、 "Outlook.Application"オブジェクトを取得するために必要なコードは何ですか？オープニング2010からvbscript

私はのCreateObject（ "Outlook.Application"）を試みたが、エラー "オブジェクト必要"

2012-02-22 Vikas

を受信トレイにあなたをナビゲートしますはい、あなたは設定oolApp =のCreateObject（「Outlook.Application」）セットメール= oolAppのようなオブジェクトを作成する必要があります。 CreateItem（0） – Amol

CreateObject（ "Outlook.Application"）がエラーを返す424（オブジェクトが必要） – Vikas

何をしなければならないのですか？電子メールまたは何を送信しますか？ – Amol

サンプルコード取得： - あなたはそのサブシステムであるCDOを使用して電子メールを送信することができ

' 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

出典

2012-02-22 12:56:37 Amol

をOutlookは使用します。あなたは私の記事Sending Emails Using CDO in WSH ASP無料でより多くの情報を見つけることができます。

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

出典

2012-02-22 19:58:10 Nilpo

お試しください。この簡単なコードです。

これは、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

出典

2015-12-23 06:35:28 Ashwin

オープニング2010からvbscript

答えて

関連する問題