マクロ　Outlook送信メールにエクセルの表を貼り付ける方法| OKWAVE

メールにファイルを添付する　or　メールに表を貼り付ける　マクロ

こんにちは。同じ質問を一週間ほど前にしたのですが、その後もわかっていなくて、どなたかご存知の方がいらっしゃればご教示いただけないでしょうか？宜しくお願い致します。送りたいメールの形は数行の文章のあとに、表を貼り付け、また数行の文章という形式です。 Outlookメールでメールを立ち上げて Comment1と2は文章ですのでエクセルのコラムを引っ張ってくるようにしているのですが、 Comment3部分に別のエクセルにある表をメタ貼りし、Comment4でまた文書を引っ張ってくるとさせたいのですが Comment3部分の動きが出来ません。 Dim OlApp As Outlook.Application Dim mItem As Outlook.MailItem Dim cell As Range Dim Subj As String Dim EmailAddr As String Dim Recipient As String Dim Msg As String Dim Message As String Dim Sender As String Dim Comments As String Dim Comments2 As String Dim report As String ’日付の設定 DMY = Range("b_date") DM = Format(Range("b_date").Value, "mmdd") Worksheets("mail").Activate 'Create Outlook object Set OutlookApp = New Outlook.Application 'Get the data Subj = Range("B69") & "_" & DM EmailAddr = Range("B63") CCAddr = Range("B66") Comment1 = Range("H63").Value Comment2 = Range("H65").Value Comment3 = この辺りがわかりません Comment4　＝Range("H67").Value 'Compose message Msg = "" Msg = Msg & Comment1 & " " Msg = Msg & Comment2 & " " Msg = Msg & Comment3 & " " Msg = Comment4 & " " Msg = Msg & "Best regards," & " " Msg = Msg & "" 'Create Mail Item Set mItem = OutlookApp.CreateItem(olMailItem) With mItem .To = EmailAddr .CC = CCAddr .BCC = BCCAddr .Subject = Subj .HTMLBody = Msg .Display End With End Sub もしくは、貼り付けるのではなく、Rドライブに保存したファイル（表が記載してあるもの）を添付するという形式でも構いません。宜しくお願い致します。

Outlookのメールを送信するマクロ

お世話になっております。 Microsoft　Outlook2003使用でメール送信のマクロを見様見真似で作ってみたのですが、本文部分がうまくいきません（Best　regardsしか表示されません）。どうすれば正しく反映されるでしょうか？シートのB1にToアドレスを記入していてTo_addressと名前付以下、Cc_addressとSubjectも同様にしています。本文の文章は何行かあり、途中で空白行も入れたいのですが、そこまでまだ手がつけられていません。本文の文章が3行あるとすると、このマクロではComment1、Comment2、Comment3と名前付しています。 Sub SendEmail() Dim OlApp As Outlook.Application Dim mItem As Outlook.MailItem Dim cell As Range Dim Subj As String Dim EmailAddr As String Dim Recipient As String Dim Msg As String Dim Message As String Dim Sender As String Dim Comments As String Dim Comments2 As String Dim report As String Worksheets("Sheet1").Activate 'Create Outlook object 　Set OutlookApp = New Outlook.Application 'Get the data Subj = Range("Subject") EmailAddr = Range("To_address") CCAddr = Range("Cc_address") Body = Range("Comment1") & ("Comment2") & ("Comment3") 'Compose message Msg = Msg & Comment1 & vbCrLf & vbCrLf Msg = Msg & Comment2 & vbCrLf & vbCrLf Msg = Msg & "Best regards," & vbCrLf & vbCrLf 'Create Mail Item Set mItem = OutlookApp.CreateItem(olMailItem) With mItem .To = EmailAddr .CC = CCAddr .BCC = BCCAddr .Subject = Subj .Body = Msg .Display End With End Sub 宜しくお願い致します。

マクロで携帯にメール送信

いつもお世話になっております。過去に何度か質問をさせていただき、今回のマクロまでたどり着くことが出来ました。下記の内容にて、作成しました。ここで、 (1)セルB1にあて先メアドを置いた場合に、メアドを載せる場合 (2)メールを送信する命令で、【myItem.Send】や【SendMail】ではメールが送信されている場合と送信待機の場合がはっせいしております。必ず、送信するまでの命令を、お教えいただきたいです。 PC環境は、XPです。メールはMicrosoft Office Outlookです。 Sub CreateMail() '参照設定 : Miscosoft Outlook 9.0Object Library Const ShName = "MAIL送信" Const SbjAdd = "b2" Const BodyAdd = "b3:b14" Dim olApp As Outlook.Application Dim objMail As Outlook.MailItem Dim Rng As Range Dim StrBody As String Set olApp = Outlook.Application Set objMail = olApp.CreateItem(olMailItem) For Each Rng In Range(BodyAdd) StrBody = StrBody & Rng.Value & vbLf Next Rng With objMail .Subject = Worksheets(ShName).Range(SbjAdd).Value .Body = StrBody .Display End With End Sub

Outlook2013自動送信が出来ません。

はじめまして、いつもお世話になっております。 excel vba の学習を始めたばかりの初心者です。あるサイトで自動でoutloook2013を起動しファイルを添付して送信するマクロを見つけ送信しようとしましたが、『コンパイルエラー』の為、上手くいきません。どなたか画像をご確認いただき、修正方法をご教示いただきたく存じます。よろしくお願いいたします。以下がコンパイルエラーの出たプロシージャ（抜粋）黄色のライン→Sub sendmail_sample1() 反転→Dim outlookObj As Outlook.Application 'Outlookで使用するオブジェクト生成以下がコンパイルエラーの出たプロシージャ（全体） Sub sendmail_sample1() '---コード1｜outlookを起動する Dim toaddress, ccaddress, bccaddress As String '変数設定：To宛先、cc宛先、bcc宛先 Dim subject, mailBody, credit As String '変数設定：件名、メール本文、クレジット、添付 Dim outlookObj As Outlook.Application 'Outlookで使用するオブジェクト生成 Dim mailItemObj As Outlook.MailItem 'Outlookで使用するオブジェクト生成 '---コード2｜差出人、本文、署名を取得する--- toaddress = Range("B2").Value 'To宛先 ccaddress = Range("B3").Value 'cc宛先 bccaddress = Range("B4").Value 'bcc宛先 subject = Range("B5").Value '件名 mailBody = Range("B6").Value 'メール本文 credit = Range("B7").Value 'クレジット '---コード3｜メールを作成して、差出人、本文、署名を入れ込む--- Set outlookObj = CreateObject("Outlook.Application") Set mailItemObj = outlookObj.CreateItem(olMailItem) mailItemObj.BodyFormat = 3 'リッチテキストに変更 mailItemObj.To = toaddress 'to宛先をセット mailItemObj.CC = ccaddress 'cc宛先をセット mailItemObj.BCC = bccaddress 'bcc宛先をセット mailItemObj.subject = subject '件名をセット '---コード4｜メール本文を改行する mailItemObj.Body = mailBody & vbCrLf & vbCrLf & credit 'メール本文改行改行クレジット '---コード5｜自動で添付ファイルを付ける--- Dim attached As String Dim myattachments As Outlook.Attachments 'Outlookで使用するオブジェクト生成 Set myattachments = mailItemObj.Attachments attached = Range("B9").Value '添付ファイル myattachments.Add attached attached = ThisWorkbook.Path & "outlookメール操作.xlsm" '---コード6｜メールを送信する--- 'mailItemObj.Save '下書き保存 mailItemObj.Display 'メール表示(ここでは誤送信を防ぐために表示だけにして、メール送信はしない) '---コード7｜outlookを閉じる(オブジェクトの解放)--- Set outlookObj = Nothing Set mailItemObj = Nothing

エクセルVBAでメール本文中に画像を挿入する方法

エクセルVBAを使ってアウトルックメールにてメール送信するマクロを作っています。本文中に画像を挿入する方法をググってますがなかなか出てきません。添付ファイルではなく、本文と本文の間に画像を差し込むイメージです。メール送信先、本文は同じエクセルのContentsシート、画像はPictシートに格納しています。 Option Explicit Sub SendMail_HTML() Dim contents As Worksheet Dim maillist As Worksheet Dim mailaddress As String, honbun1 As String, honbun2 As String, mailbody As String, strstyle As String Dim i As Long Set contents = ThisWorkbook.Worksheets("Contents") Set maillist = ThisWorkbook.Worksheets("List") ' Picture Dim pict_sheet As Worksheet Set pict_sheet = ThisWorkbook.Worksheets("pict_sheet") 'プログラム3｜Outlookアプリケーションを起動 Dim outlookObj As Outlook.Application Dim myMail As Outlook.MailItem Set outlookObj = CreateObject("Outlook.Application") For i = 2 To 3 ' Email and name setting from Content Sheet client_name = maillist.Range("B" & i).Value mailaddress = maillist.Range("C" & i).Value Set myMail = outlookObj.CreateItem(olMailItem) 'Mail content setting myMail.BodyFormat = 2 myMail.To = mailaddress myMail.Subject = contents.Range("B3").Value honbun1 = Replace(contents.Range("B6").Value, vbLf, " ") Dim insp As Outlook.Inspector Set insp = myMail.GetInspector If insp.EditorType = olEditorWord Then Dim doc As Word.Document 'Microsoft Wordを参照 Set doc = insp.WordEditor Dim wrange As Word.Range Set wrange = doc.Range(0, 0) 'カーソルを先頭に 'wrange.Text = honbun1 wrange.MoveEnd Word.WdUnits.wdStory 'カーソルを最後に wrange.Start = wrange.End pict_sheet.Shapes("pict1").Copy 'Pict sheetに入っているpict1を指定 wrange.Paste End If honbun2 = Replace(contents.Range("B8").Value, vbLf, " ") myMail.HTMLBody = honbun1 & hoonbun2 myMail.Display 'Send mail 'mymail.Display 'メール表示(ここでは誤送信を防ぐために表示だけにして、メール送信はしない) myMail.Save '下書き保存 myMail.Send maillist.Range("D" & i).Value = "Sent:" & Now() ' Release object Set myMail = Nothing Next 'プログラム12｜オブジェクト解放 Set myMail = Nothing Set outlookObj = Nothing End Sub

Excel VBA basp21でメール送信エラー

メール送信エラーとなってしまいます。 ”Cant connect Server 11004” 同アカウントでメーラーからの送受信は成功しております。原因はSMTP設定の関係だと思うのですが、どのようにコードを書き足せば良いのでしょうか。また参照設定は完了しています。ご存知のかたご回答をよろしくお願いします。コードは以下です。 Private Sub cmd送信_Click() Dim bobj As Object Dim svname As String Dim id As String Dim pass As String Dim msg As Variant '送信チェック用 Dim strMLadr As String Dim strDPadr As String Dim strPW As String 'SMTPサーバ名:ポート番号:タイムアウト秒 svname = "サーバー:587:60" 'ログインID id = "" 'パスワード pass = "" 'オブジェクトを作成 Set bobj = CreateObject("basp21") '宛先 mailto = "" '送信者 strMLadr = "" '（送信者のメールアドレス' strDPadr = "テスト" '（送信者の表示文字列） strPW = "" '（送信者メールアドレスのパスワード） mailfrom = strDPadr & "<" & strMLadr & ">" & vbTab & id & ":" & strPW '件名 subj = "送信テスト" '本文　改行はvbCrLf body = "おはようございます。" & vbCrLf & "今日は良い天気ですね。" 'メール送信 msg = bobj.SendMail(svname, mailto, mailfrom, subj, body, "") ' 送信チェック If msg <> "" Then MsgBox "送信できませんでした。" & vbCrLf & msg, vbOKOnly + vbCritical, "エラー" Else MsgBox "送信に成功しました。", vbOKOnly + vbInformation, "完了" End If End Sub

アクセスからアウトルックでメールを送りたい

アクセスからアウトルックでメールを送るために調べたのですが新しいメッセージを作ってメールを送信するところまではできたのですが送信ボタンを押下しても、どうやらアウトルックが開いてないと送信できないことがわかりました。アウトルックは常に立ち上げていません。なので下記のコードに、アウトルックを立ち上げるコードを入れたのですがわからないので教えていただけますか？ Sub メール送信() Dim OlApp As Outlook.Application Dim mItem As Outlook.MailItem Set OlApp = New Outlook.Application Set mItem = OlApp.CreateItem(olMailItem) With mItem .To = "○○@docomo.ne.jp" .Body = "test" .display End With End Sub アウトルックのバージョンは２００７です。ご教授よろしくお願いします。

エクセルからOUTLOOKでメール送信：２

●前回下記の質問を書かせていただきました。 ---------- エクセルに複数件のデータを記載してあります。 A列　に　メールアドレス B列　に　件名 C列　に　本文A D列　に　本文B があるときに連続してメールを立ち上げ送信したいです。いろいろ試してみましたが全く動きませんでした。お手隙の際にでもお教え下さい。マクロのサンプルソースがあると助かります。よろしくお願いいたします。 ---------------- ●下記の回答をいただきメールの送信までは出来ました。 ---------------- Sub ボタン1_Click() Dim myOLApp As Object ' Dim myDATA As MailItem '### OUTLOOKのオブジェクトを作成後、メールを新規作成する。 Set myOLApp = CreateObject("Outlook.Application") For i=2 To 5 Set myDATA = myOLApp.CreateItem(olMailItem) '### メールの宛先、題名、本文、添付ファイルを設定する。 '（宛先のアドレス） myDATA.to = Range("A" & i).Value ' myDATA.CC = Range("D33").Value myDATA.Subject = Range("B" & i).Value myDATA.Body = Range("C" & i).Value & CHAR(10) & Range("D" & i).Value '### メールを送信 myDATA.Send Next '### お約束の後始末。 Set myDATA = Nothing Set myOLApp = Nothing End Sub こんな感じでしょうか。 For i=2 To 5 と　２行目から５行目です。うまくいくようでしたら For i=2 To Range("A" &Rows.Count).End(xlUp).Row とでも変更してください。なんといっても失敗すると大変なリスクが発生するプログラムです。十分に実験してから運用してください。 ------------------------ ●メール送信は問題なくできておりましたが、　他のCSVリストよりエクセルにデータを引っ張ってきて　メールの送信を使用とした所システムエラーです 80004005 エラーを特定できません。と言ったエラーが出てくるようになりました。多分他のシートから引っ張ってくる関数がジャマをしているとは思うのですが、何かこのエラーを回避する方法はございますでしょうか？お教え下さい。

エクセルからOutlookexpressに表を貼り付ける

はじめまして、時々参考にさせて頂いてます。初心者に近い者です。コマンドボタンを使い、エクセルの表をメールに添付ではなく、本文（Text）として送りたいのです。以前、かなり私の要望に近いものがありました。 ↓ Dim Subj As String Dim BodyText As String Cells(1, "A") = "帰国報告" Cells(1, "B") = "昨日かえって来ました" Subj = Cells(1, "A") BodyText = Cells(1, "B") t = "C:\Program Files\Outlook Express\msimn.exe /mailurl:mailto:（自分のメイルアドレステキスト）?bcc=（自分のメイルアドレステキスト）&subject=" & Subj & "&body=" & BodyText & "%20" MsgBox t Shell t End Sub 上記はでは、ひとつのセル分しか本文に入らないのですが、これで、エクセル上の表（６列×１５行程度）が本文にテキスト文として入れば、完璧です！よろしくお願いします。 WinXpsp2・EXCEL2003・outlookexpress6

VBAでエクセルの文をメールに転記

当方エクセル2016使用しています。エクセルのVBAで、outlookのメールを自動作成したいです。エクセルの E2に宛先 E3に件名 E4～E6に本文が入っており、下記VBAでoutlookに各データが入る様にはできました。しかしエクセルでは文字のサイズや色が異なっているものが、 outlook本文に反映されません。（1行単位だったり、文字単位だったりでサイズや色が異なる）エクセルに表示されているそのままを outlook本文に表示させるにはどうしたら良いでしょうか。 ******************************** Sub Macro1() Dim toaddress As String Dim subject As String Dim mailbody As String Dim outlookObj As outlook.Application Dim mailItemObj As outlook.mailItem toaddress = Range("E2").Value subject = Range("E3").Value mailbody = Range("E4").Value mailbody = mailbody & vbCrLf & Range("E5").Value mailbody = mailbody & vbCrLf & Range("E6").Value Set outlookObj = CreateObject("Outlook.Application") Set mailItemObj = outlookObj.CreateItem(olMailItem) mailItemObj.BodyFormat = olFormatHTML mailItemObj.To = toaddress mailItemObj.subject = subject mailItemObj.body = mailbody mailItemObj.display Set outlookObj = Nothing Set mailItemObj = Nothing End Sub

エクセル、マクロの事で・・・？（２）

昨日、質問した者です。 http://okwave.jp/qa/q7374907.html 以下のマクロを教えてもらいました。昨日の質問では、エクセルのＡ列にフォルダ名、Ｂ列にファイル名、それぞれフォルダとtxtを出力するマクロを教えてもらいました。そこでもう一つ質問があるのですが、C列の内容をテキストに出力する場合はどうすればいいのでしょうか？度々の質問で申し訳ありませんが、教えていただけないでしょうか？よろしくお願いします。 sub macro1() 　dim myPath as string 　dim h as range 　on error resume next 　mypath = thisworkbook.path 　worksheets(1).select 　for each h in range("A1:A" & range("A65536").end(xlup).row) 　　mkdir mypath & "\" & h.value 　　open mypath & "\" & h.value & "\" & h.offset(0, 1).value & ".txt" for output as #1 　　close #1 　next end sub

エクセルを使ってOutlookでメール送信

エクセル Sheet1の各セルに下記のように既に入力があります。 To： AA３ (メアド入力済) 件名：AB3 (定型文入力済) 本文：AC3 (定型文入力済) Cｃ： AD3 (メアド入力済) 下記マクロを実行した時 Sheet1のAC3の定型文と改行して Sheet2のA1からC列の最終入力行までの内容を Outlookメールで飛ばすにはどうしたら宜しいでしょうか? 尚且つ、メールを飛ばしたあと、 Sheet2のA1からC3までは残して2行目以降を消去したいです。ご教示の程、宜しくお願い致します。 Dim myOLApp As Object Set myOLApp = CreateObject("Outlook.Application") Set myDATA = myOLApp.CreateItem(olMailItem) myDATA.To = Range("AA3").Value myDATA.CC = Range("AD3").Value myDATA.Subject = Range("AB3").Value myDATA.Body = Range("AC3").Value & Worksheets("Sheet2").Range("A1") myDATA.Send Set myDATA = Nothing Set myOLApp = Nothing 【例】 Sheet1 AC3 定型文・・・こんにちは。 Sheet2 A1・・・日付 B1・・・場所 C1・・・担当 A2・・・2014/10/26 B2・・・富士山 C2・・・鈴木 A3・・・2014/12/25 B3・・・TDL C3・・・佐藤

BASP21を使ってEXCELからメールの送信

BASP21を使ってEXCELからメールの送信をしたいのですが、できません。自分なりに調べた結果、下記のコードになったのですが、どこかおかしいのでしょうか？エラー表示は次になります。 530 5.7.1 client was not authenticated from メールアドレスよろしくお願いいたします。 Sub ボタン2_Click() ''[送信]ボタン Dim bobj, msg As String, i As Long Dim Server As String, Mailto As String, MailFrom As String Dim Subject As String, Attach As String, Body As String On Error Resume Next Set bobj = CreateObject("basp21") ''BASP21オブジェクト ''BASP21がインストールされているかどうかを判定する If Err = 429 Then MsgBox "BASP21がインストールされていません。", vbCritical Exit Sub End If ''必須データのチェック Server = "mail.○○○.com:587:60" ''SMTPサーバー Mailto = "○○○@hotmail.co.jp" ''宛先 MailFrom = "△△△@×××.co.jp" ''差出し人 Subject = "更新連絡" ''タイトル Body = "システムが更新しました" ''本文 msg = bobj.SendMail(Server, Mailto, MailFrom, Subject, Body, Attach) Set bobj = Nothing If msg <> "" Then MsgBox msg, vbExclamation Else MsgBox "メールを送信しました。", vbInformation End If End Sub

エクセルのマクロで複数セル指定は？

以前（7月22日　質問No.936181）の質問でご回答を頂いたマクロなんですが、 Private Sub Worksheet_Change(ByVal Target As Range) Dim MyData As String Dim i As Integer Dim ImaNanji As String Dim SakkiNanji As String Dim ImaNanpun As String Dim SakkiNanpun As String SakkiNanpun = Cells(2, 3).Value ImaNanji = Cells(1, 3).Value ImaNanpun = Mid(ImaNanji, Len(ImaNanji) - 4, 2) If ImaNanpun <> SakkiNanpun Then Application.EnableEvents = False For i = 10 To 2 Step -1 MyData = Cells(i - 1, 2).Value Cells(i, 2).Value = MyData Next i MyData = Cells(1, 1).Value Cells(1, 2).Value = MyData Cells(2, 3).Value = ImaNanpun Application.EnableEvents = True End If End Sub A1のデータをB1からB10に一分おきにつぎつぎに書き込むというものなんですが、ひとつのセルではなく複数のセル（例えばA1からA30の30個のセル）をいっぺんに書き込むようにしたいのですが可能でしょうか？よろしくお願いします。

エクセルのマクロ

下記のマクロを実行するといつも.Findのところでフリーズしてしまいます。同じ方法で違うBookからの取込には不具合はないのですが、何故だかわかりません。ちょっと長くなりますが、どなたか教えてください。 'Function fn_KAKUNIN_Update(strSheetName As String, strInBookName As String) '変数宣言 Dim wksInSheet As Worksheet '入力シート Dim wkbInBook As Workbook '入力ブック Dim wksUpSheet As Worksheet '更新するシート Dim lngKAKUNIN_MaxRow As Long Dim lngSYACHO_MaxRow As Long Dim intMsg As Integer Dim strGenbaNo As String Dim i As Long Dim j As Long Dim rngFind As Range Dim lngStrNo As Long Set wkbInBook = Workbooks(strInBookName) Set wksInSheet = wkbInBook.Worksheets Set wksUpSheet = Workbooks（pstrBookName).Worksheets(strSheetName) fn_KAKUNIN_Update = 1 lngKAKUNIN_MaxRow = wksInSheet.Range("C4").CurrentRegion.Rows.Count lngSYACHO_MaxRow = wksUpSheet.Range("H4").CurrentRegion.Rows.Count lngStrNo = 4 For i = lngStrNo To lngSYACHO_MaxRow strGenbaNo = wksUpSheet.Range("H" & i) With wksInSheet.Range("C4:C" & lngKAKUNIN_MaxRow) Set rngFind = .Find(strGenbaNo, LookIn:=xlValues, MatchCase:=False) If rngFind Is Nothing Then Else

エクセルからアウトルックへ移行について

エクセルでコマンドボタンを使いアウトルックに移行するPRGがあります。最近、PCをXPからVistaに乗り換えたところmycontent.sendのところでデバックエラー(実行時エラー"287")が出て動きません。（XPでは動作します）（エクセル2002で作成した物をエクセル2007で動かそうとしています）どういった解決策があるでしょうか？皆様、よろしくお願い致します。 Sub Eメール送信() 'Outlook上にデータ書込み msg = "MSG=" msg = msg & Cells(2, 2) Range("B2") = msg Set myoutlook = CreateObject("Outlook.Application") Set myNameSpace = myoutlook.GetNamespace("MAPI") Set mycontent = myoutlook.Createitem(0) mycontent.To = Range("B1").Value '宛先アドレス mycontent.Body = Range("B2").Value '本文 mycontent.Send 'メール送信 Set mycontent = Nothing Set myNameSpace = Nothing Set myoutlook = Nothing Range("B2").Select ans = MsgBox("MSGは正しくOutlookへ移行しました。「to Outlook」をクリックして送受信の操作を行って下さい。", 0 + 64, "注意") Selection.ClearContents End Sub

Accessから複数アドレスにメール送信

かなり初歩的な質問なのかもしれませんが、どうしても進まないのでどなたかご教授お願い致します。 access2003からBasp21を使用してメール送信フォームを作ってます。複数アドレスに一括で送れるように、宛名フォームから氏名を選択(例として3件)すると、メール送信フォームの「ｂｃｃ」ボックスに、 "bcc" & vbTab & "abc@xx.com" & vbTab & "def@xx.jp" & vbTab & "ｇhi@xx.com" と入るようにし、送信ボタンクリックで下記のようなコードを書いてます。 Dim bobj As Object Dim svname As String Dim ID As String Dim Mailto As String Dim MailFrom As String Dim subj As String Dim Body As String Dim pass As String Dim msg As Variant '送信チェック用 'SMTPサーバ名:ポート番号:タイムアウト秒 svname = Me.[smtpサーバー] & ":" & Me.[ポート番号] & ":" & Me.[タイムアウト秒] 'ログインID ID = Me.[ログインID] 'パスワード pass = Me.[パスワード] 'オブジェクトを作成 Set bobj = CreateObject("basp21") '宛先 Mailto = Me.[bcc] '送信者 MailFrom = Me.[送信者] & "<" & ID & ">" & vbTab & ID & ":" & pass '件名 subj = Me.[件名] 　　'本文 Body = Me.[テキスト169] 'メッセージの送信 msg = bobj.SendMail(svname, Mailto, MailFrom, subj, Body) ' 送信チェック If msg <> "" Then MsgBox "送信できませんでした。" & vbCrLf & msg, vbOKOnly + vbCritical, "エラー" Else MsgBox "送信しました", vbOKOnly + vbInformation, "完了" End If これを実行すると、「送信できませんでした。 555　5.5.4 Unsupported option: & to "bcc" & vbTab & "abc@xx.com" & vb」というようなメッセージが出て送信できません。 Mailto = Me.[bcc] の所を、 Mailto ="bcc" & vbTab & "abc@xx.com" & vbTab & "def@xx.jp" & vbTab & "fhi@xx.com" にすれば送信できるのですが、送信先は毎回変わるので　Me.[bbc] にアドレスを代入して送信できるようにするにはどうすればいいのでしょうか？

エクセルマクロ　メール作成

お世話になります。メールの定期配信業務があり、簡略化のためマクロ作成しております。 WSHを使った構文を見つけましたので、以下のような構文を作りました。＜エクセルシート＞横に【宛先1（to）】【宛先2（ｃｃ）】【件名】【本文】【添付ファイルパス】の順に並んでおり、列方向にはリストとなっています。＜Module＞ Sub メール書き込み() Dim 宛先1 As String Dim 件名 As String Dim 本文 As String Dim 添付 As String Dim 宛先2 As String Dim 行 As Long, 行下端 As Long Dim sComd As String 行下端 = Range("B65536").End(xlUp).Row 行 = 2 Do While 行 <= 行下端宛先1 = Cells(行, 1).Text 宛先2 = Cells(行, 2).Text 件名 = Cells(行, 3).Text 本文 = Cells(行, 4).Value 添付 = Cells(行, 5).Text sComd = "Mailto:" & 宛先1 & "?Subject=" & 件名 & "&body=" & 本文 Debug.Print sComd CreateObject("WScript.Shell").Run sComd 行 = 行 + 1 Loop End Sub この状態で、複数メールを作成することはできましたが、不満点があり、御教示願いたく考えております。 mailto　以下の書き方が分からず困っているのが以下の点です。１、CC（宛先2）を追加したい。２、添付を追加したい。また、本文の改行も反映できるようにしたいのですが、これは可能でしょうか？複数件質問になってしまい恐縮ですが、よろしくお願い致します。

EXCELマクロでシート作成＆シート名をつける方法

EXCELでセルＫ列に入力した名称でシートをどんどん作成したいのですが、下記のようにやってみましたが、うまく実行されません。２回目の←の部分で、終わってしまいます。詳しい方、教えてください。 Sub Macro3() Dim neSheet As String Dim fMax As Integer Dim num As Integer Dim i As Integer fMax = Range("B2").Value num = 2 For i = 1 To fMax neSheet = Range("k" & num).Value Worksheets.Add(After:=Worksheets(1)).Name = neSheet　← num = num + 1 Next i End Sub

Excel VBA Outlook送信済メール削除

お世話になります。現在、Excel VBA（Excel2010）で、Outlook2010を立ち上げて、添付のExcelの表のE列【GL承認日】に日付を入れると、日付書式を確認して、メールが送信されるVBAを作成しています。そこで、下記のVBAの下の方にある「myMail.Send」でメールが送信されるようになっていて、メールが送信された後、Outlookの【送信済みフォルダ】に送信済みメールが入ります。その送信済みメールを【送信済みフォルダ】に入ったら、完全に削除するようにしたいのですが、どのようにVBAを追加すれば宜しいでしょうか？ご存知の方、是非ご教示宜しくお願い致します。 ↓該当のExcel VBAです。 ---------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim myOL As Object Dim myMail As Object Dim myBody As String Dim n As Long Dim mDate As Variant On Error Resume Next 'GL承認日の列の日付書式指定 mDate = Array("yyyy/mm/dd") 'GL承認日の該当セルの日付書式を確認 For Each wz In mDate 'GL承認日の該当セルが空白でない場合は以下を処理 If Cells(Target.Row, Target.Column).Value <> "" Then If InStr(Cells(Target.Row, Target.Column).NumberFormatLocal, wz) > 0 Then 'メールアプリケーションをOutlookに指定 Set myOL = GetObject(, "Outlook.Application") On Error GoTo 0 If myOL Is Nothing Then Set myOL = CreateObject("Outlook.Application") myOL.getnamespace("MAPI").GetDefaultfFolder(6).display End If Set myMail = myOL.CreateItem(0) 'B、C行のセル位置を数値で取得 n = Cells(Target.Row, Target.Column).Row 'メール本文 myBody = "振替伝票入力のGL承認が " & Format(Cells(Target.Row, Target.Column).Value, "yyyy/mm/dd") _ & " に完了しました。" & vbNewLine & vbNewLine _ & "●振替伝票No： " & Range("C" & n).Value & vbNewLine & vbNewLine _ & "================================" & vbNewLine _ & "　▲▲部　××グループ" & vbNewLine _ & "================================" If Range("B" & n).Value = "ooo" Then myMail.to = "ooo@***.co.jp" 'ElseIf Range("B" & n).Value = "qqq" Then ' myMail.To = "qqq@***.co.jp" End If 'メールのタイトル、本文、本文の形式を指定 myMail.Subject = "【振替伝票 GL承認完了通知】" myMail.Body = myBody myMail.BodyFormat = 1 'テキスト形式 'メールを送信 myMail.Send 　　　　　　　（↑此処でメールが【送信済みフォルダ】に入りますが、このタイミングで【送信済みフォルダ】に入ったメールを完全削除したいです。） '変数をリセット Set myMail = Nothing Set myOL = Nothing Else Exit Sub End If End If Next Exit Sub End Sub

マクロ　Outlook送信メールにエクセルの表を貼り付ける方法

みんなの回答

お礼 2008/08/25 16:16

関連するQ&A

メールにファイルを添付する　or　メールに表を貼り付ける　マクロ

Outlookのメールを送信するマクロ

マクロで携帯にメール送信

Outlook2013自動送信が出来ません。

エクセルVBAでメール本文中に画像を挿入する方法

Excel VBA basp21でメール送信エラー

アクセスからアウトルックでメールを送りたい

エクセルからOUTLOOKでメール送信：２

エクセルからOutlookexpressに表を貼り付ける

VBAでエクセルの文をメールに転記

エクセル、マクロの事で・・・？（２）

エクセルを使ってOutlookでメール送信

BASP21を使ってEXCELからメールの送信

エクセルのマクロで複数セル指定は？

エクセルのマクロ

エクセルからアウトルックへ移行について

Accessから複数アドレスにメール送信

エクセルマクロ　メール作成

EXCELマクロでシート作成＆シート名をつける方法

Excel VBA Outlook送信済メール削除

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

マクロ Outlook送信メールにエクセルの表を貼り付ける方法

みんなの回答

お礼 2008/08/25 16:16

関連するQ&A

メールにファイルを添付する or メールに表を貼り付ける マクロ

Outlookのメールを送信するマクロ

マクロで携帯にメール送信

Outlook2013自動送信が出来ません。

エクセルVBAでメール本文中に画像を挿入する方法

Excel VBA basp21でメール送信エラー

アクセスからアウトルックでメールを送りたい

エクセルからOUTLOOKでメール送信：２

エクセルからOutlookexpressに表を貼り付ける

VBAでエクセルの文をメールに転記

エクセル、マクロの事で・・・？（２）

エクセルを使ってOutlookでメール送信

BASP21を使ってEXCELからメールの送信

エクセルのマクロで複数セル指定は？

エクセルのマクロ

エクセルからアウトルックへ移行について

Accessから複数アドレスにメール送信

エクセルマクロ メール作成

EXCELマクロでシート作成＆シート名をつける方法

Excel VBA Outlook送信済メール削除

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

マクロ　Outlook送信メールにエクセルの表を貼り付ける方法

メールにファイルを添付する　or　メールに表を貼り付ける　マクロ

エクセルマクロ　メール作成