J'essaie de répondre à l'expéditeur de courrier électronique d'origine et de conserver et de répondre en CC à tous les DDDRESS e-mail qui sont en CC dans l'email d'origine.
Sub estimate()
Dim origEmail As MailItem
Dim replyEmail As MailItem
Set origEmail = Application.ActiveWindow.Selection.Item(1)
Set replyEmail = Application.CreateItemFromTemplate("C:\Utils\Outlook_Templates\Estimate.oft")
replyEmail.HTMLBody = replyEmail.HTMLBody & origEmail.Reply.HTMLBody
replyEmail.Subject = "RE: " + origEmail.Subject
replyEmail.To = origEmail.Sender
replyEmail.CC = origEmail.CC + ";" + replyEmail.CC
replyEmail.Display
End Sub
3 Réponses :
cela devrait fonctionner:
Ça marche. Merci. Juste une dernière chose: quand j'utilise cela pour répondre à un courrier électronique, il répète l'adresse e-mail dans "TO" et dans "CC". C'est parce que j'ai déjà un courrier électronique défini dans le "modèle" de toute façon, disons que cela répète "mon patron" dans "à" et dans le "CC". Comment puis-je le supprimer du "CC"?
En fait, selon le Référence officielle strong> , vous n'êtes pas conçu pour modifier directement la propriété Cette propriété contient uniquement les noms d'affichage. Les destinataires doivent être utilisés pour modifier le CC destinataires. P>
blockQuote> la bonne façon de le faire alors serait: P> .cc code> directement:
Dim i as Long
' If the address could occur multiple times, start at the end & work backwards
For i = replyEmail.Recipients.Count To 1 Step -1
If LCase(replyEmail.Recipients(i).Name) = LCase("John Doe") Then
replyEmail.Recipients.Remove(i)
End If
Next
replyEmail.Display
Tout d'abord, au lieu de mettre en place chaque propriété manuellement, je vous recommande d'utiliser Répondre Méthode de la classe MailItem Crée une réponse, pré-adressée à l'expéditeur d'origine, à partir du message d'origine. Ensuite, vous pouvez configurer des propriétés dont vous avez besoin.
Deuxièmement, je vous recommande de traiter la collection des destinataires si vous devez configurer les destinataires (modifier, ajouter ou supprimer). La propriété correspondante de la classe classe renvoie un Les destinataires collection qui représentent tous les destinataires de l'élément Outlook.
Enfin, vous pouvez trouver le Comment: Remplir des champs CC et BCC dans Outlook Programmatiquement article utile.