This is not my area. However, if it works at all, you certainly need to call
.ModifiedFormPages("S.2").Controls.Add "whatever"
You might use the object browser (f2), select the Controls object left hand,
and the Add function right hand, and see the parameter list at the bottom.
Maybe pressing f1 will give you more help on this.
Best regards
Michael Bauer - MVP Outlook
: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: <http://www.vboffice.net/product.html?pub=6&lang=en>
Am Fri, 20 Nov 2009 13:47:18 +0100 schrieb Kerstin:
> Hi,
>
> is it possible to change an opened SendItem mail?
> I want to add the Bcc field at page 2 for printing the mail with that
field.
> I am able to do this in a manual way.
> Now I want to do these steps via VBA.
>
> Has anybody an idea?
>
> Thank you very much
> Kerstin
>
> Sub BccDrucken()
>
> 'das Script blendet f� aktuelle Mail die Seite 2 ein
>
> 'und f�s Bcc-Feld ein und die Option 'Drucken' wird aktiviert
>
>
>
> Dim objApp As Application
>
> Dim objItem As MailItem
>
> Dim objInsp As Inspector
>
>
>
> Set objApp = CreateObject("Outlook.Application")
>
> Set objItem = objApp.ActiveInspector.CurrentItem
>
> Set objInsp = objItem.GetInspector
>
>
>
> If objItem.Class = olMail And objItem.Sent = True Then
>
> With objInsp
>
> .ShowFormPage "S.2"
>
> .ModifiedFormPages("S.2").Controls("Bcc").Add <-- this is
> not allowed
>
> End With
>
>
>
> End If
>
>
>
>
>
> Set objApp = Nothing
>
> Set objItem = Nothing
>
> Set objInsp = Nothing
>
>
>
> End Sub