送信方法と同返信メールテンプレートに保存展望)のメールの送信（to,cc)

StackOverflow https://stackoverflow.com/questions/8816082

質問

私が必要そうです..amを受け続けていメールからのお客様（顧客）の最新の資産内容のデータベース..一度処理を行..しています回答を含むcc)からメール語のような"資産の詳細に成功し保存データベース"を使用しておりますテンプレート）...こういうのを使用することによりVBA..?

オプションを明確

公共サブReplyToAll()

Dim oExpしています。Explorer

'選択したメールの展望

Dim oSMとしてmailItem

Dim oNMとしてmailItem

On Error GoTo Err

Set oExp = Outlook.Application.ActiveExplorer

'Check if something is selected
If oExp.Selection.Count > 0 Then

    'Get the first item selected

    Set oSM = ActiveExplorer.Selection.Item(1)

        'Create a Reply template

        Set oNM = oSM.ReplyAll

        With oNM

            'Change the subject
            .Subject = "RE: " & oSM.Subject

            'Change the body
            .Body = .Body & Chr(13) & Chr(13)

        'Display the new mail before sending it
            .Display

        End With

End If

Exit Sub

Err:

MsgBox Err.Description, vbCritical

End Sub

.......................

セクション3

サブReplyAll() Dim objOutlookObjectとしてmailItem

各objOutlookObjectにGetCurrentOutlookItems

With objOutlookObject
.ReplyAll.Display

'prob地域コードを含まない、テンプレートに保存された位置c..げらかのエラー

.createitemtemplate("c:\car.jtm")

終了 次へ End Sub

機能GetCurrentOutlookItems()として収集 Dim objAppしています。の応用 Dim objItemとしてのオブジェクト Dim colItemsとして新たに収集

Set objApp = CreateObject("Outlook.Application")
On Error Resume Next
Select Case TypeName(objApp.ActiveWindow)
    Case "Explorer"
        For Each objItem In objApp.ActiveExplorer.Selection
            colItems.Add objItem
        Next
    Case "Inspector"
        colItems.Add objApp.ActiveInspector.CurrentItem
    Case Else
        ' anything else will result in an error, which is
        ' why we have the error handler above
End Select

Set objApp = Nothing
Set GetCurrentOutlookItems = colItems

機能を終了

..........

役に立ちましたか？

解決

誠に申し訳ございませんが私のコメントしたいcurt;500文字があったときは、その文字離れてはならないものと考えられた答えです。

ご質問はとても判りにくいですが定休日とさせていただきます。確かについては影響は少ないと考えていか誰も回答いただいても結構です。そのため、お客様が所有するすることが重要としてだけでなく自分の問題として返しに必要な特定の質問をします。

以下へのリンクを提供する最近の投稿ると思っています。従って私のコメントは、近年ます。を使用する施設です。あの非常に良いの答えがここに探しならします。

のポストはチュートリアルが書きました。早めの手順は同じもので質問なの後の手順が異なります。を見ても、取り出してビットの該当します。その他の投稿すべての情報を含んでいます。

どのように輸入の先行きにメールの優れたプロフェッショナル

更新されたexcelシートに基づく見通しメール

が誰にでもガイド作品の制作に携わった見通しをマクロは、以下の

からメールを送ると、メールexcel2007年vbaを使用した見通しテンプレート変数の設定

視覚の基礎サブフォルダにアクセスで受信トレイ

vbaの見通しイベントの移動メール

新たな章に対応した新たな情報からの質問

を除き、いくつかの変更、コードのお問いったマイクロソフト社のヘルプファイルのための NewMailEx Event.このコードのみを持っていれば正しいタイプの設置場所で正しい場所に

  • "の NewMailEx イベントのみ、火災のためのボックスマイクロソフトマイクロソフトの展望を提供する通知を受けたメッセージなどのMicrosoft Exchangeサーバーです。また、このイベント火災の場合にのみ見通しで走っています。つまり、火災のための新しい項目受けるには 受信トレイ が望ませんでした。開発者にアクセスしたいこれらの事項をお客様に走見交換サーバーメールアカウントを実装する必要があるとコードのサーバーです。しかし、 NewMailEx イベントの火災に対キャッシュ交換モードにすべての設定: ダウンロードの全項目, ダウンロードヘッダ, は、 ダウンロードヘッダやその全項目."

すると、正しくインストールの種類?できるだコードをサーバー?でも場合には、正しいアプローチの最終版では、マクロとは思えませんので、正しいアプローチを学習VBAを行っていく方針です。

必要なものは二つのことをやろうとしてい

  1. 詳細な仕様のマクロの希望を書くと
  2. への理解が進んでいくことをVBAを行っていく方針です。

私は間違いを作成できますの詳細な仕様のものでありませんのVBAを行っていく方針です。もしリストものを知る必要がありま:

  • い書き込みデータベースからの展望?
  • かの特定のメール希望の商品名前を挙げた報告書を発表した。おとえば、チェック対象の"こんにちは"との回答"こんにちは".こちらは初回の実験が必要なものを特定の方法です。で新しい送?ある特定の情報には、メッセージ?な人的なメールだろう？
  • に、または、すべてのフォルダ"個人"の下で"受信トレイ".多くの人がこのタイプのフォルダ構造およびMicrosoftの例を使用する傾向があるフォルダのようです。てるんじゃないかと。いというフォルダ"!を目指しています。こうしてフォルダの"保険""ショッピング"、"金"があります。こうしたいフォルダも違います。回私たちは、これまでのメッセージ、移動させることができ適切なフォルダにまとめた。ご回答は、同じフォルダにまとめた。これが私のシステムを動作させることができました。何システムになるだろうか？ますので、例えば、あるフォルダにすべてのお客様はお一人様?

上記は、スターターリストの質問のためのお仕様もスターターリストのものが必要になっています。

そして上司の人が欲しいの停止時間を無駄に、書き込みを開始するマクロが分からないときは十分でないこともあって計画の最終クリックします。

んアントになります。第三ステップのフォルダ構造です。これらの手順は必須の場合のような複雑なフォルダ構造をしています。次いただく必要があり、フォルダの表示選択した情報からメール項目です。私の手順を書いていメッセージ本体にディスクです。ていただきたい通りの両方のチュートリアルと感動のコードです。なので、すぐにでもいい背景情報です。

あなデータベース?でアクセスまたはExcelファイル?あか私のチュートリアルの他のリンクは、上記の書面によExcelきに適応できないようにします。

と思うのである。でゆっくりするで自分たちで作るものだ。"まず最初に書いてみました見通しをマクロで理解していただきますをお約束しますことを明らかになった。ベストができます。

新しい部門への対応は以下のとおりコメント

  • "こんにちはしていました..ただい....削除前のコード..たの交換とコードの..現在の助けを借りて少し必要からご用意しております。、本当にありがとう利用フォーマットのような場合をクリックして、replyallボタンの見通し..私のコードを作..probする形式のメールが異なり.."

問題1

.Body = .Body & Chr(13) & Chr(13)

を使用しています。たいと思いますが、HTMLます。う:

.HTMLBody = .HTMLBody & Chr(13) & Chr(13)

問題2

を追加することはできませんのHTML体になります。HTMLのbodyます:

<!doctype ...><html><head> ... </head><body> ... </body></html>

いてくれるものでなければなりませテキストの先頭に体この直後 <body>.場合あなただけの追加のテキストに、受け入れもスタイルのマージンや色で、送信者が使用します。次のコードを追加しテキストに見える同じメールでお願いします。私のテキスト内のテーブルは単一の細胞のテーブルのフル幅のページです。テキストは青白い背景のもの。 

Dim InsertStg As String
Dim Inx As Long
Dim Pos As Long

    'Change the body step 1: Create the string to be inserted
    InsertStg = "<table border=0 width=""100%"" style=""Color: #0000FF""" & _
                " bgColor=#FFFFFF><tr><td><p>"
    For Inx = 1 To 10
      InsertStg = InsertStg & "Sentence " & Inx & " of first paragraph. "
    Next
    InsertStg = InsertStg & "</p><p>"
    For Inx = 1 To 10
      InsertStg = InsertStg & "Sentence " & Inx & " of second paragraph. "
    Next

    ' The following adds a signature at the bottom of the message.
    ' "font-family" gives a list of fonts to be tried.  If these are
    ' missing from your computer, use the names of fonts you do have.
    ' "serif" means that if none of the fonts exist any serif font
    ' that exists is to be used.
    InsertStg = InsertStg & "</p><p style = ""font-family: Mistral, " & _
                "Vivaldi, serif; font-size: 14px; color: " & _
                "rgb(127,0,127)"">John Smith<br>5 Acacia Avenue<br>"

    InsertStg = InsertStg & "</p></td></tr></table>"
    'Change the body step 2: Find insertion position just after <Body> element
    Pos = InStr(1, LCase(.HTMLBody), "<body")
    If Pos = 0 Then
      Call MsgBox("<Body> element not found in HTML body", vbCritical)
      Exit Sub
    End If
    Pos = InStr(Pos, .HTMLBody, ">")
    If Pos = 0 Then
      Call MsgBox("Terminating > for <Body> element not found in HTML body", vbCritical)
      Exit Sub
    End If
    'Change the body step 3: Insert my text into body
    .HTMLBody = Mid(.HTMLBody, 1, Pos) & InsertStg & Mid(.HTMLBody, Pos + 1)
ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top