• 締切済み

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

アウトルック２０１０で　件名を変更して転送するマクロをしたいのですがどうかけばよいでしょうか　 あるサイトのマクロで 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 は有りましたがこれだと元々あった件名の前に文字を追加するマクロだったみたいで 良ければ件名を完全に変更して転送したいのですができますでしょうか よろしくお願い致します わかりにくければすいません

みんなの回答

  • blueso07
  • ベストアンサー率0% (0/0)
回答No.1

こんばんわ。 Outlookにて、送信メッセージ作成時、件名は【item.subject】で取得できましたので、以下の部分を変更してみてはいかがでしょうか？ >.Subject = SUBJECT_PREFIX & objMail.Subject .Subject = "ここを変更したい件名にしてください”

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

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

    いつもお世話になっております。 過去に何度か質問をさせていただき、今回のマクロまでたどり着くことが出来ました。 下記の内容にて、作成しました。 ここで、 (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

  • outlook2003　本文の一部に色を付けたい。

    vbaでメールを作成するマクロは組めたのですが 一部の文字に色をつける方法がわかりません。 Sub test() Dim acoutlook As Outlook.Application Dim acmail As MailItem Set acoutlook = GetObject(, "outlook.Application") Set acmail = acoutlook.CreateItem(olMailItem) With acmail .To = "aaaa@com" .Subject = "件名" .Body = "赤です。よろしくお願いします。" .Display End With End Sub 上のコードの「赤」という部分を赤色にするにはどうすればいいでしょうか。 ちなみにこれはアクセスから起動しています。 よろしくお願いします。

  • メール転送サービスで、件名の変更ができるのも

    電子メールの件名(Subject)を短く変更した上で、他のメールアドレスへ転送ができるサービスはありませんでしょうか？ 具体的には 「指定文字数以上の場合、件名の後ろの方をカットする」 「すべての件名を、特定の物（たとえば[転送])に変更してしまう」 のどちらでもかまいません。 できれば、無料の方がいいです（当たり前ですが）。 広告などが送られてくるのは、かまいません。 よろしくお願いします。

  • マクロのメール作成について教えてください

    メール作成に関するマクロで教えて下さい。 下記のマクロで、件名と文章内の＃○○○の○○○の部分には 毎回違う3ケタの数字が入ります。 これを例えば、エクセルのセルA1に101と入力されていたら 件名と文章内の○○○の部分を101にした状態でメールを起動させたいです。 また最後の名前○○の部分には、セルA2にデータ入力規則でリストを作成し 選んだ名前を選択すると○○の部分が反映された状態でメールが起動するようにしたいです。 それと文章内の書体をＭＳ Ｐ明朝にするにはどうすればよいでしょうか？ 教えて下さい。 Sub メールマクロ() Dim oApp As Object Dim objMAIL As Object Dim strMOJI(1) As String Dim n As Long On Error Resume Next Set oApp = GetObject(, "Outlook.Application") On Error GoTo 0 If oApp Is Nothing Then Set oApp = CreateObject("Outlook.Application") oApp.GetNamespace("MAPI").GetDefaultFolder(6).display End If Set objMAIL = oApp.CreateItem(0) strMOJI(0) = "【秘/Confidential】 " & vbCrLf & _ "テスト様" & vbCrLf & _ "CC.関係各位様" & vbCrLf & _ " " & vbCrLf & _ "いつもお世話になっております。" & vbCrLf & _ "#○○○ G1 G2の計測を行いました" & vbCrLf & _ "以上です。" & vbCrLf & _ "EMAX株式会社" & vbCrLf & _ "名前○○" objMAIL.To = "E-Mail_Address_Here" objMAIL.Subject = "#○○○ G1 G2 計測結果" objMAIL.BodyFormat = 3 'リッチテキスト objMAIL.Body = strMOJI(0) objMAIL.display Set objMAIL = Nothing Set oApp = Nothing End Sub

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

  • マクロで保護をかけているけど、幅の変更ができない

    マクロ初心者です。 複数のシートに下記の様なマクロで保護をかけています。 Sub シートの保護() Dim myWS As Worksheet For Each myWS In Worksheets With myWS .EnableSelection = xlUnlockedCells .Protect Password:="****" End With Next myWS End Sub マクロで保護がかかっている状態で、高さや幅を変更したいのですが、 どのようにマクロを変更すれば良いのかわかりません。 教えていただけますでしょうか？

  • エクセルVBAでアウトルックメールの差出人変更

    エクセル2010です。 エクセルからVBAでアウトルックメールを作成するのですが、差出人を自分ではなく部門名のアドレスにしたいのです。 手動ではなんなく差出人を変更できるのですが、VBAでの方法がわかりません。 ネット検索してみると、 SendUsingAccount = Session.Accounts("アカウント名") でできるようなのですが、アカウント名がよくわかりません。 アカウント名に、手動で差出人を変更する際に「名前の選択」で指定する部門の名前や部門のアドレスなどを入れてみましたがオブジェクトが必要とのエラーになってしまいます。 どうすればよいのでしょうか？ Sub TEST001() Dim oApp As Object Dim objMAIL As Object Dim strMOJI(1) As String On Error Resume Next Set oApp = GetObject(, "Outlook.Application") On Error GoTo 0 If oApp Is Nothing Then Set oApp = CreateObject("Outlook.Application") End If Set objMAIL = oApp.CreateItem(0) strMOJI(0) = "こんにちは！" & vbCrLf & _ "差出人変更のテストです。。" & vbCrLf & _ "よろしくおねがいします。" & vbCrLf strMOJI(1) = vbCrLf & _ "以上です。" & vbCrLf & _ "ABC株式会社" & vbCrLf & _ "emaxemax" objMAIL.To = "" objMAIL.CC = "xxxx@xxx.co.jp" objMAIL.Subject = "テスト" objMAIL.Body = strMOJI(0) & strMOJI(1) ' objMAIL.SendUsingAccount = Session.Accounts("ABC Gyomubu")'ここでエラー objMAIL.Display End Sub

  • マクロがうまくいきません！

    office2000を使用してます。 Excelでボタンをクリックするのみであらかじめ作られたメッセージがメールで送信されるマクロを作成中です。 Private Sub CommandButton2_Click() Dim OLApp As Outlook.Application Dim mItem As Outlook.MailItem Set OLApp = CreateObject("Outlook.Application.9") Set mItem = OLApp.CreateItem(olMailItem) With mItem .Recipients.Add("abcd@abcd.co.jp").Type = olTo .Subject = "明日の件" .BodyFormat = olFormatPlain .Body = "明日、久しぶりに会えるのを" & _ "楽しみにしています。" & vbCr & _ "それじゃ。" .Send End With Set mItem = Nothing Set OLApp = Nothing End Sub このように作成したのですがうまくいきません。 エラーで「オブジェクトは、このプロパティまたはメソッドをサポートしていません」と出ます。参照設定も行ったのですが、どうしてでしょうか？どなたかお願いします。

  • OUTLOOKのメールをマクロを使って自動転送

    OUTLOOKのメールをマクロを使って自動転送したいです。 職場のOUTLOOKの自動転送の機能、プライベートメールに転送する人が多いので、使えないように制限されています。それで、マクロを使ってこの問題を解決できないかネットリサーチしていましたところ、下記サイトを発見しました。 https://tknria.blogspot.com/2014/01/outlook2010-forward-auto-when-receive.html マクロは詳しくないので理解出来なかった所が多いので、どのようにマクロを組んだらいいのか教えて頂けないでしょうか。 例えば、毎回件名に「ABC」という記述が入っていて、その件名のメールを「xxx@yahoo.co.jp」に毎回自動転送させたいという時。 宜しくお願いします。

  • エクセルVBAでOutlookメール作成

    いろいろ検索や質問をしてエクセルVBAで、下記のコードによりOutlookのメールを自動作成できるようになりました。 Sub TEST01() Set oApp = CreateObject("Outlook.Application") Set objMAIL = oApp.CreateItem(0) 'olMailItem=0 strMOJI = "こんにちは！" & vbNewLine & "テストメールです。" & vbNewLine & "よろしくおねがいします。" objMAIL.To = "XXXX@XXXXX.co.jp" '宛先 objMAIL.Subject = "テスト" '件名 objMAIL.Body = strMOJI '本文の代入 objMAIL.display '表示 End Sub それで、実際にはstrMOJI に代入した文字列の下に、このマクロを記述してあるBOOKのSheets("Sheet1").Range("A1:D10")をコピーし、 「リッチテキスト形式」で貼り付けたいのです。 どのようなコードに変えればよいのか教えていただけると助かります。 よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する