[添付ファイル一覧]
[全ページの添付ファイル一覧]
- sendmail.vbs
- 格納ファイル名:attach/4D6163726F2FC5EAB9C62F313438_73656E646D61696C2E766273
- ページ:Macro/投稿/148
- 格納ファイル名:attach/4D6163726F2FC5EAB9C62F313438_73656E646D61696C2E766273
- MD5ハッシュ値:45b2771c881a70814ab63ed039de14a5
- サイズ:1.2KB (1277 bytes)
- Content-type:application/octet-stream
- 登録日時:2006/08/24 01:16:17
- アクセス数:359
- MD5ハッシュ値:45b2771c881a70814ab63ed039de14a5
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
| | Option Explicit
Const SMTP_SERVER = "mail.xxxxxx.co.jp"
Const MAIL_TO = "xxxxx@xxxxx.co.jp;xxxxx@xxxxx.com"
Const MAIL_CC = ""
Const MAIL_FROM = "sakura-editor@localhost.localdomain"
Call SendMail
Private Sub SendMail()
Dim oMsg
Set oMsg = CreateObject("CDO.Message")
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTP_SERVER
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMsg.Configuration.Fields.Update
oMsg.From = MAIL_FROM
oMsg.Subject = ExpandParameter(CStr("$g"))
SelectAll
oMsg.TextBody = GetSelectedString(CLng(0))
If MAIL_TO <> "" Then oMsg.To = MAIL_TO
If MAIL_CC <> "" Then oMsg.Cc = MAIL_CC
oMsg.Send
End Sub
|