添付ファイルの情報



[添付ファイル一覧] [全ページの添付ファイル一覧]

filesendmail.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
アクセス数:276
MD5ハッシュ値:45b2771c881a70814ab63ed039de14a5
filesendmail.vbs
  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.Item _
    '  ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    'oMsg.Configuration.Fields.Item _
    '  ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ユーザー名"
    'oMsg.Configuration.Fields.Item _
    '  ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "パスワード"
    oMsg.Configuration.Fields.Update
 
 
    oMsg.From = MAIL_FROM
    oMsg.Subject = ExpandParameter(CStr("$g"))
    SelectAll
    oMsg.TextBody = GetSelectedString(CLng(0))
    'oMsg.AddAttachment "C:\添付.txt"
    If MAIL_TO <> "" Then oMsg.To = MAIL_TO
    If MAIL_CC <> "" Then oMsg.Cc = MAIL_CC
    oMsg.Send
 
End Sub
 




    


    ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS