/ Forums / Advansys Formativ / Commercial Formativ Solutions by Advansys / cc and to / Reply To: cc and to
Here is an updated version of the TypeText function from this applet that should perform the functionality required. Replace the existing function with the one shown below.
You can control any software that provides a COM interface. This includes much of todays modern software. Check with the application vendor to see if they provide a COM (or Automation) interface. All the MS Office applications provide appropriate interfaces, including Excel, Outlook, Access, etc.
You can automatically print the Word document by making some changes to your applet. If you are still refering to the Message to Word applet, try adding a new line around line 72: Word.PrintOut. I have not tried this, but it should work.
Advansys Support
‘——————————————————————————-
‘ Write messages details in the active documents
‘——————————————————————————-
function TypeText
dim RecCounter, RecipientEntry, CCRecHolder, BCRecHolder
dim AttachCount, AttachEntry
dim RecHolder, AttachHolder
‘ Write recipients details in active word document
If Msg.Recipients.count > 0 then
for RecCounter = 1 to Msg.Recipients.count
set RecipientEntry = Msg.Recipients.Item(RecCounter)
‘ Recipient type of an address
Select Case RecipientEntry.TargetType
Case 0 RecHolder = RecHolder & RecipientEntry.EmailAddress & “, ”
Case 1 CCRecHolder = CCRecHolder & RecipientEntry.EmailAddress & “, ”
Case 2 BCRecHolder = BCRecHolder & RecipientEntry.EmailAddress & “, ”
End Select
set RecipientEntry = nothing
next
End if
‘ Write attachments file name in active word document
If Msg.Attachments.count > 0 then
for AttachCount = 1 to Msg.Attachments.count
set AttachEntry = Msg.Attachments.Item(AttachCount)
AttachHolder = AttachHolder + AttachEntry.DisplayName&” “
set AttachEntry = nothing
next
End if
Set Selection = Word.Selection
Selection.Font.Bold = wdToggle
Selection.TypeText (“Sender: “)
Selection.Font.Bold = wdToggle
Selection.TypeText(Msg.Sender.DisplayName)
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.TypeText(“Date: “)
Selection.Font.Bold = wdToggle
Selection.TypeText(Msg.CreationDate&” “)
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.TypeText(“Email address: “)
Selection.Font.Bold = wdToggle
Selection.TypeText(ResolveExternalAddresses)
‘ Recipient Type – To
if RecHolder <> “” then
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.TypeText(“TO: “)
Selection.Font.Bold = wdToggle
Selection.TypeText(RecHolder)
end if
‘ Recipient Type – CC
If CCRecHolder <> “” then
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.TypeText(“CC: “)
Selection.Font.Bold = wdToggle
Selection.TypeText(CCRecHolder)
End If
‘ Recipient Type – BC
If BCRecHolder <> “” then
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.TypeText(“BC: “)
Selection.Font.Bold = wdToggle
Selection.TypeText(BCRecHolder)
End If
if AttachHolder <> “” then
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.TypeText(“Attachments: “)
Selection.Font.Bold = wdToggle
Selection.TypeText(AttachHolder)
End If
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.TypeText(“Subject: “)
Selection.Font.Bold = wdToggle
Selection.TypeText(Msg.Subject&” “)
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText(Msg.BodyText&” “)
‘ Insert page break
Selection.InsertBreak wdPageBreak
end function