Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


61803 / 76732 ←次へ | 前へ→

【19543】メール送信サンプルを拝見したのですけど
質問  キキオヤ  - 04/11/8(月) 7:53 -

引用なし
パスワード
   Option Explicit
Declare Function SendMail Lib "bsmtp" _
   (szServer As String, szTo As String, _
    szFrom As String, szSubject As String, szBody As String, szFile As String) As String
Sub MySendMail()
  Dim ret As String
  Dim szLogfile As String
  Dim szServer As String, szTo As String, szFrom As String
  Dim szSubject As String, szBody As String, szFile As String
  Dim flBody
  Dim i As Long
  Dim fs, a As Object
  On Error GoTo Err_Handler
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set a = fs.CreateTextFile("c:\log.txt", True)
  ' メール送信結果を記録するファイル名を指定します。
  szServer = Worksheets("本文").Cells(11, 1) ' SMTPサーバ名
  '
  With Worksheets("宛名及び置換文字")
  If .Cells(1, 3) & .Cells(1, 7) = "" Then
    MsgBox "タイトルとFROMを入力してください"
    GoTo Exit_sub
  Else
    If MsgBox("タイトル:" & .Cells(1, 3) & "、送信元" & .Cells(1, 7) & "で良いですか?", _
      vbOKCancel, "確認") = vbCancel Then
      GoTo Exit_sub
    End If
  End If
  szSubject = .Cells(1, 3)  ' 件名
  szFrom = .Cells(1, 7)  ' 送信元
  i = 3
    Do While .Cells(i, 1) <> "END"
      If .Cells(i, 1) = "○" Then
        szTo = .Cells(i, 5)  ' 宛先
        szBody = .Cells(i, 6) ' 本文
        szFile = ""
        ret = SendMail(szServer, szTo, szFrom, szSubject, szBody, szFile)
        If Len(ret) <> 0 Then
          a.WriteLine (Date & " " & Time & " " & ret & "−" & szTo & "−" & szBody)
          'MsgBox "エラー" & ret & "−" & .Cells(i, 4)
          .Cells(i, 1) = "エラー"
        Else
          .Cells(i, 1) = "完了"
        End If
      End If
      i = i + 1
    Loop
  End With
  ' パラメータエラーのときは、戻り値にエラーメッセージが返ります。
  
  MsgBox "終了"
  GoTo Exit_sub

Err_Handler:
  MsgBox Err.Description, vbCritical, "Error"
  GoTo Exit_sub

Exit_sub:
  a.Close
End Sub    Dim flBodyは変数宣言なのですか?この変数はどこで使用されているの        でしょうか?
0 hits

【19543】メール送信サンプルを拝見したのですけど キキオヤ 04/11/8(月) 7:53 質問
【19544】Re:メール送信サンプルを拝見したのですけど Asaki 04/11/8(月) 11:32 回答
【19572】ありがとうございます キキオヤ 04/11/9(火) 20:13 お礼
【19599】Re:ありがとうございます Asaki 04/11/10(水) 9:18 回答

61803 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free