• 締切済み

CDOについて

kiki_sの回答

  • kiki_s
  • ベストアンサー率59% (147/248)
回答No.1

部分的ですが、下記コードでどうでしょう? 添付ファイル名 = Application.GetOpenFilename("全てのファイル (*.*),*.*", , "添付ファイル選択", , True) 結果 = SendMailByCDO(SMTPサーバ, 発信者, 宛先, "", "", 件名, 本文, 添付ファイル名)

関連するQ&A

  • CDOオブジェクトについて

    CDOオブジェクトを使用して、メールを送信する単純なvbscriptのプログラムを作成しています。しかし、プログラムを実行すると、「Set objMsg = CreateObject("CDO.message") 」の部分でスクリプトエラー「-2147217865」が発生し、メールが送信できません。考えられる原因がおわかりになる方、または解消方法がおわかりになる方がいらっしゃいましたら、ご教示いただきたく。 以上、宜しくお願い致します。

  • CDO.Messageを使ったVBScript

    VBScriptでメールを送信するためのサンプルがさまざまなサイトで紹介されており、 下記プログラムの10,11,12行目のURLが何をさしているのかが分かりません。 =============================ここから=============================== 1. Set objMail = CreateObject("CDO.Message") 2. objMail.From = "表示名 <username@xxx.yy.zz>" 3. objMail.To = "表示名1 <username1@xxx.yy.zz>;表示名2 <username2@xxx.yy.zz>" 4. objMail.Cc = "username@xxx.yy.zz" 5. objMail.Bcc = "username@xxx.yy.zz" 6. objMail.Subject = "メール送信テスト" 7. objMail.HtmlBody = "<html><body><i>CDO.Messageによるメール送信テスト</i></body></html>" 8. objMail.BodyPart.Charset = "utf-8" 9. objMail.AddAttachment "c:\test.txt" 10. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 11. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mailhost" 12. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 13. objMail.Configuration.Fields.Update 14. objMail.Fields("urn:schemas:mailheader:X-Mailer") = "vbscript mail" 15. objMail.Fields("urn:schemas:mailheader:Importance") = "High" 16. objMail.Fields("urn:schemas:mailheader:Priority") = 1 17. objMail.Fields("urn:schemas:mailheader:X-Priority") = 1 18. objMail.Fields("urn:schemas:mailheader:X-MsMail-Priority") = "High" 19. objMail.Fields.update 20. objMail.Send 21. Set objMail = Nothing =============================ここまで=============================== 実際に会社の運用業務で使用しても問題ないものなのでしょうか? また、問題があるのでしたら、その解決法を教えて頂ければ嬉しいです。

  • VBAでメール送信(CDO)

    お世話になります ExcelのVBAでCDOを使用してメールの送信を行おうとしております Excelファイルを配り、Excel内のアンケートに答えていただいた 後にVBAで作成したメール送信ボタンを実行すると、指定先にメール を送るということを考えております ただ、ソース内でSMTP情報と相手のメールアドレスの設定をしないと いけないのですが、この2点をどのようにVBAを使用して設定すれば良いの かが分かりません。そもそも出来るのかもわからないのですが ご存知の方可能なのであれば取得方法をご教授頂きたいと思います

  • CDO.messageで第4水準漢字を送信したい

    VBScriptで、CDO.Messageを使用したメール送信をしています。 メール本文に第3・第4水準漢字を使用したいのですがどうしたらよいでしょうか。 objMail.TextBody = "勷匊匋匤匵" '適当な第4水準漢字 objMail.TextBodyPart.Charset = "utf-8" VBScript自体のファイルをUTF-8にすると実行時にエラーになるし、 BODY部分を別テキストファイル(UTF-8)にして、OpenTextFileで読み込んでも文字化けします。

  • 添付ファイルの送信が出来ません

    Office 2010 | Microsoft Office Outlook | Windows 7 を使用してます。 昨日までは、異常なく使用出来ておりましたが、急に添付ファイルの送信だけが出来なくなってしまいました。 添付ファイルの種類は、エクセル、ワード、写真・・・すべて添付出来ません。 スマートフォンで同じアカウントで添付ファイルを送信はすることは出来ますが、パソコンからの送信が出来きません。 添付ファイルを送信すると以下のメッセージの返信があります。 配信不能 : **** システム管理者 このメールは、受信者全員または一部に届きませんでした。 件名: **** 送信日時: 2011/09/24 21:48 以下の受信者にメールを配信できません: ****@piaia.or.jp 2011/09/24 21:48 この受信者へ配信できる電子メール アカウントはありません。 以上のメッセージを受信します。 添付ファイル無しで同じアドレスへの送信は出来ます。 送信フォルダー内を削除したり、office2010をインストールし直したりしてみましたが、解決出来ませんでした。 よろしくお願い致します。

  • 添付File

    Windows VISTA ultimate と Microsoft Office2007の組み合わせで、使用しています。 Microsoft OutlookでMailを送ると、添付のFileがWin.datになってしまい、相手が読めません。 解決方法よろしくお願いいたします。MailはHotmailをしようしています。

  • VBSでメール送信

    VBS初心者です。 以下のサイトを参考に,特定のフォルダにファイルが追加されたら, 指定のメールアドレスに添付して送信するVBSを作成してみました。 http://plaza.rakuten.co.jp/mscrtf/diary/201206260000/ ちなみに記述を少しだけ変えて, 送信したファイルを削除しないようにしています。 しかしこうしてしまうと,「送信フォルダ」にファイルが追加されると, その新しく追加されたファイルではなく, 前から置いてある別のファイルが送信されてしまいます。 「最新のファイルを添付して送信」することはできないでしょうか? またファイルを添付してメールを送信することはできるのですが, なぜか送信受信ともに,まったくおなじメールが2通作成されてしまいます。 (2通同時ではなく1通目が届いて30秒後くらいにもう1通届きます)。 あと,受信側メールアドレスをbbb@hotmail.co.jpにし, smtpserver:smtp.live.com smtpserverport:587 とすると 「転送においてサーバーに接続できませんでした」と出てしまいます。 ポート番号を,465や25にしてみましたがだめでした。 どこを直せばいいでしょうか? 以上の解決策をご教授ください! コードは以下です。 Dim Fs, strPath, Fl, F, NewFile, NewFileFP, OutF Set Fs = CreateObject("Scripting.FileSystemObject") strPath = "C:\FileSend\送信フォルダ\" NewFile = "" Set Fl = Fs.GetFolder(strPath) For Each F In Fl.Files If F.Name > NewFile Then NewFile = F.Name End If Next NewFileFP = Fl & "\" & NewFile Dim WshShell, BtnCode Set WshShell = WScript.CreateObject("WScript.Shell") Set objShell = CreateObject("Wscript.Shell") Set oMsg = CreateObject("CDO.Message") oMsg.From = "ファイル送信元 <aaa@gmail.com>" '送信元 oMsg.To = "bbb@hotmail.co.jp" '送信先 oMsg.Subject = "ファイルの送信test3" '件名 oMsg.TextBody = "ファイルをお送りします。" 'メール本文 oMsg.AddAttachment NewFileFP '添付 oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.googlemail.com" oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "aaa@gmail.com" oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "******" oMsg.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 oMsg.Configuration.Fields.Update oMsg.Send oMsg.Configuration.Fields.Update oMsg.Send Set OutF = Fs.OpenTextFile("C:\FileSend\test.txt",8) OutF.WriteLine "Date[" & date & "] Time[" & time & "] File[" & NewFile & "]" OutF.Close objShell.Popup "メール送信しました。", 0, "送信完了", 0 Set Fs = Nothing Set Fl = Nothing Set OutF = Nothing 使用しているパソコンは Win7Professional 32bit です。 よろしくお願いいたします!

  • メール配信について

    いつも参考にさせて頂いております。 今回は業務にて使用するメール配信についてご教授願いたくご連絡を しました。 BtoBでのメールになりますが(時折Cにも送る時はありますが) 通常メールに添付ファイルを付けております。 ここに来てサーバ会社より負荷が掛かっているから控えて欲しい旨の 連絡が入りましてメール配信サービスを使用する運びとなりましたが どこの会社を選べば良いか判断が付きません。 ステップ機能とか付加価値的なのは必要なく添付ファイル付きのメールが 送れれば良いのですが、基本的に余計な高機能が付く事によって値段が高 くなっております。 いっその事添付ファイルではなく、URLをクリックする事でファイルが ダウンロードできる配信が「自動」生成される。 その様なメール配信サービスがあれば教えて頂きたくご連絡しました。 月間メール配信数は多くて2万件。登録されているアドレスは多くても 1000件です。 この様な情報となりますが宜しくお願い致します。

  • 自分のイラストを壁紙にしたい

    Macでillustratorやphotoshopで作ったイラストを Windowsで壁紙として使用したいのですが、いくつか質問させて下さい。 1.メールにイラスト画像を添付してそれを壁紙に設定する事は可能でしょうか(windowsとのデータのやりとり) 2.その場合のillustratorやphotoshopのファイル名で、拡張子は何とつければ良いですか。(ファイル名の変更が必要か) 3.Mac用の圧縮ソフト(できればフリーウェア)はありますか。MacLHAで圧縮できますか。仮に圧縮してメールに添付した場合、windowsで解凍する事はできますか。 勉強不足で申し訳ないのですが、どうかお知恵を貸して下さい。よろしくお願いします。

    • ベストアンサー
    • Mac
  • 同じ添付ファイルを受信できたりできなかったりします

    お世話になります。 ある場所から送られてきた添付ファイル付きメールがあります。(ExcelとAcrobat) 1、そのメールを数名に「転送」しました。 すると、 ・「microsoft outlook」の使用者は通常通り受信できました。 ・「outlook express」の使用者は添付ファイルがありませんでした。 2、そのメールの添付ファイルを一旦デスクトップに保存し、その後デスクトップの添付ファイルを「新しいメール」に「添付」しました。 ・「microsoft outlook」「outlook express」共に通常通り受信できました。 なぜこのような事が起こったのか教えてください。