A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
こんばんは。
>Set myOL = GetObject(, "Outlook.Application")の所でエラー発生。
確かに、そこは、矛盾がありますから、通常では、エラー自体はありますが、VBEditorの一般的な設定では、エラーが返るはずがありません。VBEditor が、エラートラップの設定を無視する、試験モードになっているようです。
出来る限り、以下の設定にしてください。
[ツール]→[オプション]→[全般]→[エラートラップ]
私の場合は、
・エラー処理対象外のエラーで中断(E)
を選んでいます。
たぶん、「エラー発生時に中断」という設定だと思います。
もし、そこを変えたくないのでしたら、コメントブロック(')をおくか、削除してください。ただ、高度なマクロは使えませんので、そのままにしておくのは、あまりお勧めしません。
例:
'Set myOL = GetObject(, "Outlook.Application")
No.3
- 回答日時:
こんばんは。
Basp21 やCDO が悪いわけではありませんが、今のスタイルからでは、MAPIを勧めたいですね。
エラーは確認できました。
>Application.Dialogs(xlDialogSendMail).Show
今回、Excelのバージョンが書かれていないので、正確なことは言えませんが、開いているBookを添付するという形を取るので、二度目はないものだと思います。やはり、本来は、一旦、ブックを別名で保存して、それを、Mapi で送る方法がよいのではないかと思いますが、以下は、別に保存するのではなく、自ブックに対して、行います。
別名保存する方法は、少し、テクニックが必要です。そのまま保存しても、ActiveBook が移動してしまいます。
'-------------------------------------------
Sub Mail_Test()
Dim myOL As Object ' Outlook.Application
Dim myMail As Object ' Outlook.MailItem
Dim xlName As String
Dim myAttachments As Object 'Attachments
'ブックを保存
ThisWorkbook.Save
xlName = ThisWorkbook.FullName
'別のブックの場合 (上のSave は要らない)
'xlName = ThisWorkbook.Path & "\" & "Test01.xls"
On Error Resume Next
Set myOL = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then
Set myOL = CreateObject("Outlook.Application")
End If
On Error GoTo 0
Set myMail = myOL.CreateItem(olMailItem)
Set myAttachments = myMail.Attachments
myAttachments.Add xlName, , , "xlTest"
With myMail
.To = "×××@×××" 'メールアドレス
.Subject = "Test" '題名
.Body = "前略" & vbCrLf & "Excelファイルを添付しました。"
.Save
.Display
End With
Set myMail = Nothing
Set myOL = Nothing
End Sub
'-------------------------------------------
この回答への補足
エクセルのバージョンは、2003~。
メーラーは、ホットメールを使おうと思っています。
上記をそのまま検証した所、12行目の
Set myOL = GetObject(, "Outlook.Application")の所でエラー発生。
内容
ActiveXのコンポーネントは、オブジェクトを作成出来ない。
対処方法は、有りますか?
No.2
- 回答日時:
手動で出来ますか?
[Alt]を押したまま[F][D][A]の順で押してみてください
同じエラーが出るはずですが
メーラーからメールの送信できますよね?
excelからメーラーにデータを渡しているだけなので
メーラーの種類やバージョンにもよるようですよ
どうしても、マクロで送信したいのであれば
#1さんの方法にするか
この辺りを熟読してみては如何でしょう
http://www.hi-ho.ne.jp/babaq/vbtips.html
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …
No.1
- 回答日時:
私も以前、ExcelのVBAでメールを自動受信して集計する物を作った事があります。
その時はメールの送受信にはBASP21というモジュールを使いました。
http://www.hi-ho.ne.jp/babaq/basp21.html
"BASP21 Excel"で検索すると参考になると思います。
回答有難う御座います。
BASP21 Excelを調べましたが、インストール等色々と複雑なので、
個人で使用するならいいのですが、複数人ならそれぞれインストールが
必要なのではと思ったので、今回は控えたいと思います。
次回の参考にしたいと思います。
有難う御座いました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) VBA メール送信済で実行されるはずが、実行されない時があります。 2 2023/02/02 14:05
- その他(メールソフト・メールサービス) メールが送信できない 発信側でできる対策 3 2023/05/11 10:22
- その他(メールソフト・メールサービス) PCでメールは発信について 6 2022/08/13 09:23
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- ガラケー・PHS SMSメールの受信遅延原因はガラケー自体の欠陥では 8 2022/08/06 11:46
- その他(パソコン・スマホ・電化製品) A.I.D社のポータブルナビの地図更新について 1 2022/05/13 15:37
- その他(メールソフト・メールサービス) iphoneから送ったメールがエラーで届かない! 受信は問題ないですが、送信が前までちゃんと遅れてた 2 2022/08/17 20:02
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
- Excel(エクセル) Excel起動時にエラーダイアログが表示される 3 2022/07/28 19:52
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vbaによるメール送信
-
PC内蔵カメラのトラブル
-
エロ動画探索してたらロリ動画...
-
拡張子 .api のソフト
-
JUST PDFの「しおり」機能について
-
ccmcacheとは ccmcacheとは何か...
-
isn’t this nice!これはどうい...
-
ホームページにあるPDFファイル...
-
ネットワークの問題が起きたた...
-
英語で揉み返しってなんていう...
-
文字化けの状態で上書き保存し...
-
Vistaのアイコンキャッシュの削...
-
GoogleDriveを使用してwebペー...
-
PCカタログのCPUのスペック...
-
PCに知らない画像がいつの間に...
-
更新ボタンを押さないと最新の...
-
DNSのゾーンファイルを書き換え...
-
OptiPlex GX520のCPU交換
-
px.a8.netとは何ですか
-
NBTSTATの-Rと-rと-RRの違いに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Outlook エラー番号:...
-
AL-Mailでの送信エラーについて
-
vbaによるメール送信
-
OutlookをひさしぶりにノートPC...
-
ヤフーメールの添付ファイルの...
-
PC内蔵カメラのトラブル
-
OutlookをひさしぶりにノートPC...
-
FAX機の送信エラー
-
YouTubeのシステムエラー
-
エロ動画探索してたらロリ動画...
-
楽天キャッシュでマクドナルド...
-
JUST PDFの「しおり」機能について
-
ccmcacheとは ccmcacheとは何か...
-
拡張子 .api のソフト
-
SSDでネット閲覧は高速化します...
-
リンク先のJPEG画像を一括ダウ...
-
ARPをクリアする理由について
-
ASUS RAMCache IIIについて、Wi...
-
SIMカードには何が入っているの...
-
ザタイピングオブザデッドのシ...
おすすめ情報