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
   Problem Showing All Area, Category, and Issue Values in Infor CRM (Saleslogix) Mobile And How to Fix
There is an issue with the Infor CRM (Saleslogix) Mobile client where, if you have a large list of Area,
Posted on Apr 24, 2015 by Ryan Farley to Ryan Farley's Blog
 
   InforCRM 8.1 (formerly SalesLogix) SpeedSearch Repair
If the Speedsearch Server is returning an error "Unable to locate the SpeedSearch Directory" a
Posted on Apr 24, 2015 by Mark Duthoy to SalesLogix Support
 
   Determining User Rights in the Infor CRM (Formerly Saleslogix) LAN Client
I recently had a client ask how to get a query to tell which users have rights to add, edit, and delete v
Posted on Apr 03, 2015 by Kris Halsrud to Kris Halsrud's Blog
 
   How do I wrap text in Textboxes in Infor CRM (formerly Saleslogix)?
Recently an Infor CRM administrator contacted me in regards to many of their textboxes for Notes in the I
Posted on Apr 01, 2015 by Dale Richter to Infor CRM Questions & Answers
 
   InforCRM (formerly Saleslogix) Mobile - Clearing Out Earlier Customizations
If you started with an earlier version of SalesLogix Mobile, let's say version 7.5.4, and customized
Posted on Mar 30, 2015 by Mark Duthoy to SalesLogix Support
 
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