|
紹介いただいたURLを参考にやっています.
Option Explicit
Sub TEST2()
Dim MailSmtpServer As String
Dim MailFrom As String
Dim MailTo As String
Dim MailSubject As String
Dim MailBody As String
Dim MailAddFile As Variant
Dim strMSG As String
' 添付ファイルの選択
MailAddFile = Application.GetOpenFilename("全てのファイル (*.*),*.*", , _
"添付ファイルを選択して下さい。", , True)
' 送信確認
If MsgBox("メールを送信します。" & vbCr & _
"SMTP,発信者,宛先等は正しいですか?", vbYesNo) <> vbYes Then Exit Sub
MailSmtpServer = Cells(1, 2).Text ' SMTPサーバ
MailFrom = Cells(2, 2).Text ' 発信者
MailTo = Cells(3, 2).Text ' 宛先
MailSubject = Cells(4, 2).Text ' 件名
MailBody = Cells(5, 2).Text ' 本文
' メール送信(CC,BCCはブランク)
strMSG = SendMailByCDO(MailSmtpServer, MailFrom, MailTo, "", "", _
MailSubject, MailBody, MailAddFile)
' 文字コードを任意に指定する場合は以下のようにします。
' strMSG = SendMailByCDO(MailSmtpServer, MailFrom, MailTo, "", "", _
MailSubject, MailBody, MailAddFile, cdoISO_2022_JP)
If strMSG <> "OK" Then MsgBox Mid(strMSG, 3)
End Sub
が、実行するとSendMailByCDOが反転して、
subまたはfunctionが定義されていません とでます。
なにがたりないでしょうか。
御教示ください。
|
|