Login / Register  search  syndication  about

          Infor CRM Questions & Answers

Your place to get answers to your SalesLogix related questions.

 Home  |   Subscribe via RSS  |   Subscribe via E-mail  |   

How can I use Mail Merge with microsoft vbscript functions (or SalesLogix functions)?

Question:

How can I use Mail Merge with microsoft vbscript functions (or SalesLogix functions)?

 

Answer:

You can create a Word Document as a COM-Object and insert text into it via VBScript. Maybe the short example below is helpful for your first steps ...


Short example:

'Including Script - Personal:opencrms_Microsoft_Constants
'Including Script - System:SLX Database Support

' the script "opencrms_Microsoft_Constants" contains the definitions of all Microsoft Office Constants, e.g wdCell, wdToggle and so on (if you need it, send me an email)
option explicit

sub Main
CreateWordMailMerge
end sub

sub CreateWordMailMerge
Dim objWord, objRange, objTable
Dim sField, sTable, sWhere
Dim sFirstname
Dim i

' create Word as COM object
set objWord = CreateObject("Word.Application")

' add a blank document and make Word visible
objWord.Documents.Add
objWord.Visible = TRUE

' fetch firstname of current contact from CONTACT table
sField = "FIRSTNAME"
sTable = "CONTACT"
sWhere = "CONTACTID='" & Application.BasicFunctions.CurrentContactID & "'"
sFirstname = GetField (sField, sTable, sWhere)
If ErrorCheck(Application.Translator.Localize("Error fetching 'FIRSTNAME' in 'CreateWordMailMerge()':")) > 0 Then exit sub

with objWord.Selection
' enter 4 empty lines into the Word document
for i = 1 to 4
.TypeParagraph
next
' greetings to the contacts firstname into the Word document
.TypeText "Hello " & trim(sFirstname)
' enter 2 carriage return into the Word document
.TypeParagraph
.TypeParagraph
' enter simple text into the Word document
.TypeText "How are you?"
' enter 2 carriage return into the Word document again
.TypeParagraph
.TypeParagraph
end with

' create a simple table with 2 row and 3 columns
Set objRange = objWord.Selection.Range
with objWord.ActiveDocument
set objTable = .Tables.Add(objRange, 2, 3)
'.... i have deleted all my formats
end with

' insert data into the table
with objWord.Selection
.Font.Bold = wdToggle ' make the first cell bold
.TypeText "Print it bold"
.MoveRight wdCell ' move two cells forwards
.MoveRight wdCell
.Font.Bold = wdNone
.TypeText "Now I am here.."
.MoveRight wdCell
end with

' set the printer properties
With objWord.ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = objWord.CentimetersToPoints(2.5)
.BottomMargin = objWord.CentimetersToPoints(2)
.LeftMargin = objWord.CentimetersToPoints(2.5)
.RightMargin = objWord.CentimetersToPoints(2.5)
.Gutter = objWord.CentimetersToPoints(0)
.HeaderDistance = objWord.CentimetersToPoints(1.25)
.FooterDistance = objWord.CentimetersToPoints(1.25)
.PageWidth = objWord.CentimetersToPoints(21)
.PageHeight = objWord.CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterMiddleBin
.OtherPagesTray = wdPrinterMiddleBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.GutterPos = wdGutterPosLeft
End With
' print the document
objWord.PrintOut

' if you want to close Word, use
' objWord.Quit

'destroy the Word object
set objWord = Nothing
end sub

What's This?
  
Bookmark and Share

About SalesLogix Support

   Your SalesLogix Business Partner for SalesLogix Support.


Related Content
   Limiting the Height of the Infor CRM (Saleslogix) ComboBox Popup
In my last post, I discussed how the Infor CRM (Saleslogix) ComboBox is a Dijit Select form widget. This
Posted on Jan 29, 2015 by Ryan Farley to Ryan Farley's Blog
 
   How to Disable the ComboBox Control in the Infor CRM (Saleslogix) Web Client
There's a problem with the ComboBox control in the Infor CRM (Saleslogix) Web Client. It won't di
Posted on Jan 22, 2015 by Ryan Farley to Ryan Farley's Blog
 
   Problems running Crystal Reports in the Infor CRM (formerly Saleslogix) LAN client
We recently had a client that was using the Crystal RDC object in VBScript within the LAN client to run a
Posted on Jan 20, 2015 by Kris Halsrud to Kris Halsrud's Blog
 
   Infor CRM Summary Report
I had a user ask me what is the best way to figure out database statistics: 1. How many records are in
Posted on Jan 09, 2015 by Dale Richter to Infor CRM Questions & Answers
 
   Index of Posts for Starting with Infor CRM (Saleslogix) Development
The blogs on customerfx.com go all the way back to 2003. There's years and years worth of information
Posted on Dec 30, 2014 by Ryan Farley to Ryan Farley's Blog
 
Comments

No Comments
All contents Copyright © 2015 Customer FX Corporation
Customer FX Corporation
2324 University Avenue West, Suite 115
Saint Paul, Minnesota 55114
Tel: 800.728.5783

  Follow @CustomerFX on twitter
Follow the best news, tips, and articles
  Subscribe to Customer FX on youtube
Watch SalesLogix tutorial videos from Customer FX
Login / Register