Login / Register  search  syndication  about

          SalesLogix 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
   Mobile 3.0.3 for Saleslogix v7.5.4, v8.0.0 & v8.1.0 is now available!
Saleslogix Mobile v3.0.3 is now available in the customer portals. This update addresses all issues int
Posted on Apr 14, 2014 by Scott Weber to SalesLogix Product Blog
 
   Editing Filters in Saleslogix Web Client 8.0
Is it possible to add or remove Saleslogix filters from the List view in Accounts?
Posted on Apr 08, 2014 by SalesLogix Support to SalesLogix Questions & Answers
 
   Creating a Unique Saleslogix table ID in a SQL Function
A couple of months ago Ryan Farley wrote an article about how to use a SQL stored procedure to create a S
Posted on Mar 25, 2014 by Kris Halsrud to Kris Halsrud's Blog
 
   Saleslogix Integration with Google - WOW!
Saleslogix will be releasing their Google Integration this month and from what I have seen, it is fantast
Posted on Mar 18, 2014 by Scott Weber to SalesLogix Product Blog
 
   Global Joins in the Saleslogix Web Client
Question: How can I make a Global Join stick in the Saleslogix Web Client? Currently, when I create a
Posted on Mar 07, 2014 by SalesLogix Support to SalesLogix Questions & Answers
 
Comments

No Comments
All contents Copyright © 2014 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