メモã—ã¨ã“ CDO.Messageã«ã‚ˆã‚‹ãƒ¡ãƒ¼ãƒ«é€ä¿¡CDO.Messageã«ã‚ˆã‚‹ãƒ¡ãƒ¼ãƒ«é€ä¿¡ vbscriptã‹ã‚‰ãƒ¡ãƒ¼ãƒ«ã‚’é€ä¿¡ã™ã‚‹æ–¹æ³•ã¯ã„ãã¤ã‹ã‚ã‚‹ã‘ã‚Œã©ã€æ¨™æº–機能ã§ãƒ¡ãƒ¼ãƒ«ã‚’é€ä¿¡ã™ã‚‹ã“ã¨ãŒã§ãã‚‹ã¦CDO.Message（コラボレーション データ オブジェクト）を利用ã™ã‚‹ã¨ç°¡å˜ã§ã™ã€‚ ãŸã ã—ã€SMTPã¸ã®ã‚¢ã‚¯ã‚»ã‚¹ã ã‘ã§ã™ã®ã§ã€ãƒ¡ãƒ¼ãƒ«ã®å—ä¿¡ã¯ã§ãã¾ã›ã‚“。用途ã¨ã—ã¦ã¯ã‚¹ã‚¯ãƒªãƒ—トã§ç›£è¦–ã—ã¤ã¤ã‚¢ãƒ©ãƒ¼ãƒˆã‚’ã‚ã’ã‚‹ã¨ã‹ã€å®šåž‹ãƒ¡ãƒ¼ãƒ«ã‚’定期的ã€ã‚‚ã—ãã¯ä¸€æ–‰é…ä¿¡ã™ã‚‹ãªã©ã§ã—ょã†ã‹ã€‚ サンプルコード Set objMail = CreateObject("CDO.Message") objMail.From = "[email protected]" objMail.To = "[email protected]" objMail.Subject = "メールé€ä¿¡ãƒ†ã‚¹ãƒˆ" objMail.TextBody = "CDO.Messageã«ã‚ˆã‚‹ãƒ¡ãƒ¼ãƒ«é€ä¿¡ãƒ†ã‚¹ãƒˆ" o
{{#tags}}- {{label}}
{{/tags}}