VBAは全く分からず、現在使用しているのは、調べたものをそのままコピーして今の形式に合うようにシート名やらセル名を入替えて使っているものです。
色々調べて、添付できるように .addattachment Range("G8") と Set iMsg = Nothing を追加したところ、一人目には問題なく送信できたんですが、2人目からエラーになります。
●実行エラー‘91‘:オブジェクト変数またはWithブロック変数が設定されていません。
デバッグすると、 Set .Configuration = iConf が黄色くハイライトされます。
他の方の一斉送信を見てみると、これで動作している方もいるようなので、どこをどうしていいのか全く分からず途方にくれています。
これができないと、手動でひとりずつメールに添付するか、一斉送信の生きてる1行目にひとりずつコピペして送信するという恐ろしい作業になってしまいます。
どなたか、お詳しい方、お助け下さいm(_ _)m
以下、宜しくお願い致します。
シート名 イレギュラーメール
B8~ 送信先メアド
C8~ メール件名
D8~ 送信先団体名
E8~ 送信先宛名
F8~ メール本文
G8~ 添付ファイル
Sub イレギュラーメール()
'
' イレギュラーメール Macro
'
' 変数設定
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant
Dim i, LastRow As Integer
' CDOオブジェクト初期設定
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/s … = 2
.Item("http://schemas.microsoft.com/cdo/configuration/s … = Worksheets("イレギュラー").Range("C2").Value
.Item("http://schemas.microsoft.com/cdo/configuration/s … = Worksheets("イレギュラー").Range("C3").Value
' .Item("http://schemas.microsoft.com/cdo/configuration/s … = 1
' .Item("http://schemas.microsoft.com/cdo/configuration/s … = "あなたのユーザーID"
' .Item("http://schemas.microsoft.com/cdo/configuration/s … = "あなたのパスワード"
.Update
End With
' 送信範囲設定
LastRow = Worksheets("イレギュラー").Range("B7").End(xlDown).Row
' メール送信ループ
For i = 8 To LastRow
' 送信状況メッセージクリア
Worksheets("イレギュラー").Range("F2").Value = ""
' メール本文作成
strbody = Worksheets("イレギュラー").Range("D" & i).Value & vbCrLf & " " & _
Worksheets("イレギュラー").Range("E" & i).Value & " 様" & vbCrLf & vbCrLf & _
Worksheets("イレギュラー").Range("F" & i).Value
' 改行変換
tmpstrbody = Replace(strbody, vbLf, vbCrLf)
strbody = Replace(tmpstrbody, vbCr & vbCrLf, vbCrLf)
' メール送信
With iMsg
Set .Configuration = iConf
.From = Worksheets("イレギュラー").Range("C4").Value
.To = Worksheets("イレギュラー").Range("B" & i).Value
.BCC = Worksheets("イレギュラー").Range("C5").Value
.Subject = Worksheets("イレギュラー").Range("C" & i).Value
.TextBody = strbody
.addattachment Range("G8")
.Send
End With
' 送信状況メッセージ更新
Worksheets("イレギュラー").Range("F2").Value = Worksheets("イレギュラー").Range("B" & i).Value & " まで送信成功!"
' 3秒停止
Application.Wait [ NOW() + "0:00:03" ]
Set iMsg = Nothing
Next i
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Safariで「本当にこのフォーム...
-
お問い合わせフォームから送信...
-
ラジオボタンとテキストボック...
-
フォームを再送信しますか?
-
postmail(UTF-8)でメールが文字...
-
safariの 「本当にもう一度フ...
-
Googleフォームを回答したか確...
-
ビジネスメールの敬称
-
VBAでInputBoxの再入力をさせる...
-
「イ分」・・・フンという文字...
-
エクセルVBA テキストボックス...
-
複数行の入力を受け取る方法
-
DWでメールフォームを作りたい!
-
VBAで質問があります
-
PDFに編集可能領域を作りたい
-
指定した演算を実施の結果を表...
-
フォームメールの正しい使いかた
-
なんで
-
ホームページでCGIのフォームを...
-
私、Paiza Cloudやっているのだ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
お問い合わせフォームから送信...
-
フォームを再送信しますか?
-
Googleフォームを回答したか確...
-
Safariで「本当にこのフォーム...
-
Accessでメール一括送信ソフ...
-
ソケットで通信するデータの帯...
-
ホームページビルダーのメール...
-
c# メールが送信できたか確認
-
VB6で、Bsmtp.dllを使って、メ...
-
BASP21のSendMailとSendMailEx...
-
VBA EasyCommでの送信
-
CGIでメールのReturn-Pathに値...
-
VBA メール一斉送信で添付ファ...
-
WriteFileで送信できたかの確認...
-
PCのFAX接続について
-
SendmailでHTML形式のメールを...
-
sendmailの送信先アドレスを2...
-
VB.NETからGmail経由でメールを...
-
メールアドレスが正しいかどう...
-
ホームページの送信フォームで...
おすすめ情報