2016-08-22 1 views
0

Tout semble fonctionner, sauf l'ajout de l'adresse e-mail à la cc. Le compte avec lequel je suis en train de tester peut être caché de la liste d'adresses globale.Essayer de créer un bouton dans Outlook 2010 qui répond à l'email en surbrillance/email ouvert w/texte statique et cc une adresse e-mail

Il existe également un moyen d'ajouter le nom d'affichage de l'utilisateur au texte du corps, c'est-à-dire le grand travail (nom dynamique, c'est-à-dire Ted auquel je réponds)! J'ai aimé ton travail. . .

utilisant Windows 7 Entreprise w/perspectives 2010 32bit Professional Plus et l'échange 2010.

Merci! Code ci-dessous

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

Qu'est-ce qui échoue exactement à propos de l'ajout de l'adresse CC? Comme pour obtenir un nom d'utilisateur dynamique, vous pouvez vouloir 'Account.Username' ou éventuellement' Environ ("userdomain") & "\" & Environ ("nom d'utilisateur") ' – Mikegrann

+0

Il fait tout le reste sujet = 100% du code email = 100% du code. – Toofgib

+0

Il fait tout le reste sujet = 100% du code Corps de l'email = 100% du code. Lorsque je regarde l'e-mail envoyé, il n'y a pas d'adresse e-mail dans la partie CC de l'e-mail. – Toofgib

Répondre

0

Non ReplyRecipients dans ce cas juste Destinataires.

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

D'accord, mais c'est une réponse? pourquoi ne pas utiliser le replyrecipient? qui a fonctionné! maintenant ... = (que diriez-vous d'obtenir le nom d'affichage de l'adresse e-mail à laquelle je réponds est-ce possible? – Toofgib

+0

ReplyRecipeints sont les destinataires où la réponse sera envoyée lorsque le destinataire de votre message d'origine répond à votre message. ça peut être différent de l'expéditeur du message (vous) –

+0

Ah, parfois, ça me prend 10 fois de passer par le livre de code pour comprendre ce genre de choses. – Toofgib