2016-08-22 3 views
0

ccに電子メールアドレスを追加する以外はすべて動作するようです。 私がテストしているアカウントがGALから隠れている可能性があります。強調表示された電子メールに返信するOutlook 2010のボタンを作成しようとしました/静的なテキストとccの電子メールアドレス

また、ユーザーの表示名を本文テキスト、つまりグレートジョブ(動的な名前、つまりTed、つまり返信先のメール)に追加する方法があります。私はあなたの仕事を愛していました。 。 。 Outlook 2010のプロプラス32ビットおよび為替のw/Windows 7の企業2010

感謝を使用して

!以下のコード

Sub GoodJob() 

Dim m As MailItem 'object/mail item iterator 
Dim recip As Recipient 'object to represent recipient(s) 
Dim reply As MailItem 'object which will represent the reply email 

'Loop over each SELECTED item: 
For Each m In Application.ActiveExplorer.Selection 
If m.Class = olMail Then 
Set reply = m.reply 

'Adds a "direct replies to" address: 
'Set recip = reply.ReplyRecipients.Add("[email protected]") 
Set recip = reply.ReplyRecipients.Add("[email protected]") 
recip.Type = olCC 

'adds Subject "Great Job! I loved your work on this Project" to email 
reply.Subject = "Great Job ! I loved your work on this Project" 

'Adds Body of text to email 
reply.Body = "Your awesomeness has been shared with Driver X" & vbLf & m.Body 



reply.Save 'saves a draft copy to your SENT folder 
reply.Send 

End If 
Next 

End Sub 
+0

CCアドレスの追加に失敗した正確な原因は何ですか?動的なユーザ名を取得する場合は、 'Account.Username'またはおそらく' Environ( "userdomain")& "\"&Environ( "username") ' – Mikegrann

+0

が必要です。電子メール=コードから100%。 – Toofgib

+0

それ以外のものは件名= 100%コード 本文はコードから100%です。 送信したメールを見ると、メールのCC部分にメールアドレスはありません。 – Toofgib

答えて

0

この場合、ReplyRecipientsは受信者だけです。

Set recip = reply.Recipients.Add("[email protected]") 
+0

大丈夫ですが、それは返信ですか?あなたはなぜ返信先を使用しないのですか? それがうまくいった!今すぐ... =(返信先のメールアドレスの表示名を取得することは可能ですか? – Toofgib

+0

ReplyRecipeintsは元のメッセージの受信者がメッセージに返信するときに返信が送信される受信者です。 –

+0

ああ、時々、コードブックを通ってそのようなことを理解するのに10回かかります。 – Toofgib

関連する問題