Outlook2007でマクロを削除する方法

前へ 次へ
このQ&Aのポイント
  • マクロを削除したい場合、以下の手順を実行します。
  • 1. Outlookを起動します。
  • 2. Alt + F11を押してVisual Basic Editorを開きます。
回答を見る
  • ベストアンサー

マクロを削除したい（outlook2007）

MIcrosoft Outlook 2007を使用しています。 次のマクロの削除方法を教えてくださいm(__)m メールを送信する際に、自動的にCCにアドレスを入れたく、ネットで探していたところ 次のようなマクロ(?)を設定すればOKとあったので、試してみました。 1.アウトルックを立ち上げる 2.alt＋F11を押す 3.次を入力する 　↓ Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim objMe As Recipient Set objMe = Item.Recipients.Add("アドレス@アドレス.jp") objMe.Type = olCC objMe.Resolve Set objMe = Nothing End Sub 4.保存する 以上の手順を踏みましたところ、確かに自動的にccにアドレスが入ってくれました。 しかし、あくまでも試しに入れてみましたので、削除をしたいと思ってるのですが、 削除の方法がわかりません。。。 試しに、上の文字列を削除して白紙で保存してみたりしましたが まったく直ってくれる気配がありません。。。 どなたか、削除方法をご教示いただけますでしょうか。 よろしくお願いいたしますm(__)m

質問者が選んだベストアンサー

  • ベストアンサー
  • mshr1962
  • ベストアンサー率39% (7418/18948)
回答No.1

1.アウトルックを立ち上げる 2.alt＋F11を押す 3.書き込んだマクロコードを全て削除する。 4.標準モジュールがある場合は、Module1を右クリックして、Module1の解放を選択して、いいえを選択 5.保存する

vivimeg
質問者

お礼

早速ありがとうございます！ 削除できました（涙） 大変助かりましたm(__)m

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. その他MS Office製品

関連するQ&A

  • 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 宜しくお願い致します。

  • outlookでマクロエラー

    メールを複数人に送信する場合、受信者に知られないように「B.C.C.」で送らなければならないのですが、 ついうっかり「To」や「C.C.」にアドレスを入れてしまい、相手からクレームをもらうということがありました。 それを未然に防ぐため、「To」や「C.C.」にアドレスに150文字以上入れたらアラートを出す、というマクロを以下のように作り、Visual Basic Editorに組み込みました。 Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim strSubject As String strTo = Item.To strCC = Item.CC If Len(strTo) >= 150 Or Len(strCC) >= 150 Then Prompt$ = "ToかCCが150文字を超えています。本当に送信しますか？" If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "注意！") = vbNo Then Cancel = True End If End If End Sub このマクロは正常に動作するんですが、 問題は会議出席依頼を送信か承諾するときに 実行時エラー'438': オブジェクトは、このプロパティまたはメソッドをサポートしていません。 というエラーが出るようになりました。 「終了」「デバッグ」「へルプ」が選択でき、 そこで「終了」を押すと普通に会議依頼は完了するのでし仕事上の問題はありません。 そこで「デバッグ」をすると strTo = Item.To のところが黄色くハイライトされます。 マクロも正常に動き、会議依頼もできるのですが、 毎回このエラーがでるので、なんとか直したいと思っています。 何か解決する方法ありますでしょうか。 環境はwindows XP、outlook2007です。 ご教授よろしくお願いします。

  • Outlook2003　削除済みアイテム内のメールの削除

    いろいろ調べて分からなかったので、質問致します。 Outlook2003を使用しておりますが、削除済みアイテムには自動的に（仕分けルールなど）メールを移動できますが、削除済みアイテム内のメールを自動的に（サーバルール）削除する方法が分かりません。 自動仕分けで行うと、クライアントルールになってしまい、Outlookを起動しないと処理してくれません。 Outlookを起動しない状態で、削除済みアイテム内を空にする方法を教えて下さい。

  • Outlook2003：仕訳ルール「さらに削除する（復元できません）」

    よろしくお願いします。 Outlook2003を利用しております。 複数のアカウントでメールを一括受信し、別のアドレスに転送 しております。 その際、仕訳ルールを利用し下記のような設定をしています。 この仕訳ルールは次のタイミングで適用されます：メッセージを受信 したとき[宛先]または[ＣＣ]が　名前（××1＠××.com)の場合 ××2＠××.comへ転送する さらに削除する（復元できません） と設定しています。 本文及び受信メールの内容をOutlook上に残したくないため また、見れないようにしたいと思い上記のような設定にして おります。 受信トレイは、当然空になるのですが、送信済みアイテム内に 残ります。 そのため、送信済みアイテム内の削除をし、その後、削除済み アイテム内の削除をせざる得ない状態です。 過去、Outlook2000の時は、この設定方法で転送後すべて削除 出来ていたと思うのですが、何度設定しなおしても送信済み アイテム内に残ります。 すっきりと自動削除できる設定方法があれば教えてください。 よろしくお願いします。

  • Outlookの再送信フォームにてマクロで宛先を取得する方法について

    Outlookの再送信フォームにてマクロで宛先を取得する方法について メールサーバーにEXCHANGE SERVER、メールクライアントにOutlook 2003を利用しています。 TOとCCに社外ドメインのアドレスが含まれていないか送信前にチェックするマクロを作成しました。 通常のメールの送信時には問題なく動作しているのですが、 配信不能のメールを再送信する際にエラーが出ます。 再送信フォームにて、メールの送信前に宛先を取得する方法をご存知の方がいらっしゃれば、 ご回答をお願いいたします。 【ソース】 ThisOutlookSessionにマクロを記述 Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 　　Dim i As Integer 　　For i = 1 To Item.Recipients.Count　　　← この行でエラーが出ます。 　　　　With Item.Recipients.Item(i) 　　　　～　省略　～ 　　　　End With 　　Next End Sub 【エラーメッセージの内容】 実行時エラー '438': オブジェクトは、このプロパティまたはメソッドをサポートしていません。

  • アウトルックのマクロ　件名を変更して転送したい

    アウトルック２０１０で　件名を変更して転送するマクロをしたいのですがどうかけばよいでしょうか　 あるサイトのマクロで Option Explicit ' ここをトリプルクリックでマクロ全体を選択できます。 Public Sub ForwardWithPrefix(objMail As MailItem) Const FORWARD_ADDRESS = "" ' 転送先のアドレスを指定します Const SUBJECT_PREFIX = "テスト " Dim objForward As MailItem Set objForward = objMail.Forward With objForward .To = FORWARD_ADDRESS .Subject = SUBJECT_PREFIX & objMail.Subject .Send End With End Sub は有りましたがこれだと元々あった件名の前に文字を追加するマクロだったみたいで 良ければ件名を完全に変更して転送したいのですができますでしょうか よろしくお願い致します わかりにくければすいません

  • マクロの削除方法を教えてください。

    ワークシートの２番目にデータを入力し、マクロでそのコピーをワークシートの４番目に挿入して、 不要な部分を削除して利用している為、次のマクロが残ってしまいます。 マクロ　　Private Sub Worksheet_Change(ByVal Target As Range) ４番目のワークシートを作成する時、このシートのマクロを、削除する方法を教えてください。 Excel2010（Windows　７）を使用しています 宜しくお願い致します

  • Accessからoutlookのプロシージャー

    Accessからoutlookのプロシージャーを実行する方法は？ AccessからExcelなら、エクセルに ************************ Sub エクセルマクロ() MsgBox "a" End Sub ************************ を作り、アクセス側で、 ************************ Private Sub AccessからExcel() Dim xlsWB As Object Set xlsWB = GetObject("D:\My Documents\up\エクセル.xls") xlsWB.Application.Run xlsWB.Name & "!エクセルマクロ" Set xlsWB = Nothing End Sub ************************ を実行すると、エクセル側のプロシージャーが実行されますが、 Accessからoutlookの場合は、どうすればいいでしょうか？ Outlookの標準モジュールに、 ************************ Sub Outlookマクロ() MsgBox "a" End Sub を作っても、 アクセス側で、 Private Sub AccessからExcel() Dim xlsWB As Object Set xlsWB = GetObject("D:\My Documents\up\ ")‘ここをどうすればいいかわからない。 xlsWB.Application.Run xlsWB.Name & "! Outlookマクロ" Set xlsWB = Nothing End Sub ************************ と言うコードしか作れなくて、詰んでしまいます。 Accessからoutlookのプロシージャーを実行する方法をご教授ください。よろしくお願いします。

  • VBA　マクロを削除して保存したい

    お世話になります。 下記のコードでシートをコピーし、新規ブックに保存しています。 マクロを削除して保存するにはどのようにしたらよいでしょうか？ コードはsheet5に記入しています。 ちなみにセルだけをコピペして、シートの設定もコピーできるコード もあるハズですよね？ 書式、列の幅、行の高さ、ページ設定、をコピーしたいので、 どなたかご教授お願いします。 Private Sub 保存() Dim ns As Workbook Dim msg As String Sheets("sheet5").Copy Set ns = ActiveWorkbook msg = IIf(Application.Dialogs(xlDialogSaveAs).Show(ARG1:="" & ".xls", ARG2:=1), "保存", "キャンセル") ns.Close (False) Set ns = Nothing MsgBox msg & "しました。" End Sub

  • アウトルック2010を終了する際、必ず "すべてのアカウント[削除済み

    アウトルック2010を終了する際、必ず "すべてのアカウント[削除済みアイテム]フォルダにある全アイテム及びサブフォルダを完全に削除してよろしいですか"が表示されます。表示させない方法がありますか。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する