Mail Merge - Spire.Doc Demos

Mail Merge

Subscribe to this RSS feed

Mail Merge (4)

Doc MailMerge Silverlight

2011-07-12 06:48:19 Written by Administrator

Demo
App.xaml
App.xaml.cs
App.xaml.vb
MainPage.xaml
MainPage.xaml.cs
MainPage.xaml.vb

The sample demonstrates how to work with MailMerge in Silverlight via Spire.Doc.

Download template doc file.

Download merged result file.

<Application xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
             x:Class="MailMergeSL.App">
    <Application.Resources>        
    </Application.Resources>
</Application>

using System;
using System.Windows;
using System.Windows.Browser;
using Spire.License;

namespace MailMergeSL
{
    public partial class App : Application
    {
        public App()
        {
            this.Startup += this.Application_Startup;
            this.Exit += this.Application_Exit;
            this.UnhandledException += this.Application_UnhandledException;

            InitializeComponent();
        }

        private void Application_Startup(object sender, StartupEventArgs e)
        {
            LicenseProvider.SetLicenseKey("your license key in license.elic.xml");
            this.RootVisual = new MainPage();
        }

        private void Application_Exit(object sender, EventArgs e)
        {

        }

        private void Application_UnhandledException(object sender, ApplicationUnhandledExceptionEventArgs e)
        {
            // If the app is running outside of the debugger then report the exception using
            // the browser's exception mechanism. On IE this will display it a yellow alert 
            // icon in the status bar and Firefox will display a script error.
            if (!System.Diagnostics.Debugger.IsAttached)
            {

                // NOTE: This will allow the application to continue running after an exception has been thrown
                // but not handled. 
                // For production applications this error handling should be replaced with something that will 
                // report the error to the website and stop the application.
                e.Handled = true;
                Deployment.Current.Dispatcher.BeginInvoke(delegate { ReportErrorToDOM(e); });
            }
        }

        private void ReportErrorToDOM(ApplicationUnhandledExceptionEventArgs e)
        {
            try
            {
                string errorMsg = e.ExceptionObject.Message + e.ExceptionObject.StackTrace;
                errorMsg = errorMsg.Replace('"', '\'').Replace("\r\n", @"\n");

                String exp = "throw new Error(\"Unhandled Error in Silverlight Application " + errorMsg + "\");";
                HtmlPage.Window.Eval(exp);
            }
            catch (Exception)
            {
            }
        }
    }
}

 Partial Public Class App
    Inherits Application

    public Sub New()
        InitializeComponent()
    End Sub
    
    Private Sub Application_Startup(ByVal o As Object, ByVal e As StartupEventArgs) _
            Handles Me.Startup
        Me.RootVisual = New MainPage()
    End Sub
    
    Private Sub Application_Exit(ByVal o As Object, ByVal e As EventArgs) Handles Me.Exit

    End Sub
    
    Private Sub Application_UnhandledException(ByVal sender As object, _
            ByVal e As ApplicationUnhandledExceptionEventArgs) Handles Me.UnhandledException

        ' If the app is running outside of the debugger then report the exception using
        ' the browser's exception mechanism. On IE this will display it a yellow alert 
        ' icon in the status bar and Firefox will display a script error.
        If Not System.Diagnostics.Debugger.IsAttached Then

            ' NOTE: This will allow the application to continue running after an exception has been thrown
            ' but not handled. 
            ' For production applications this error handling should be replaced with something that will 
            ' report the error to the website and stop the application.
            e.Handled = True
            Deployment.Current.Dispatcher.BeginInvoke( _
                New Action(Of ApplicationUnhandledExceptionEventArgs)(AddressOf ReportErrorToDOM), e)
        End If
    End Sub

   Private Sub ReportErrorToDOM(ByVal e As ApplicationUnhandledExceptionEventArgs)

        Try
            Dim errorMsg As String = e.ExceptionObject.Message + e.ExceptionObject.StackTrace
            errorMsg = errorMsg.Replace(""""c, "'"c).Replace(ChrW(13) & ChrW(10), "\n")

            System.Windows.Browser.HtmlPage.Window.Eval( _
                "throw new Error(""Unhandled Error in Silverlight Application " + errorMsg + """);")
        Catch
        
        End Try
    End Sub
    
End Class

<UserControl x:Class="MailMergeSL.MainPage"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
    xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
    mc:Ignorable="d"
    d:DesignHeight="600" d:DesignWidth="400"
             xmlns:dataInput="clr-namespace:System.Windows.Controls;assembly=System.Windows.Controls.Data.Input"
             xmlns:controls="clr-namespace:System.Windows.Controls;assembly=System.Windows.Controls">

    <Grid x:Name="LayoutRoot" Background="#FF003399" Loaded="LayoutRoot_Loaded"
          Width="400" Height="400" HorizontalAlignment="Center" VerticalAlignment="Top">
        <Grid.ColumnDefinitions>
            <ColumnDefinition MaxWidth="70" MinWidth="70" Width="70" />
            <ColumnDefinition MinWidth="300" Width="*" />
        </Grid.ColumnDefinitions>
        <Grid.RowDefinitions>
            <RowDefinition Height="40" MinHeight="40" />
            <RowDefinition Height="30" MaxHeight="30" MinHeight="30" />
            <RowDefinition Height="30" MaxHeight="30" MinHeight="30" />
            <RowDefinition Height="30" MaxHeight="30" MinHeight="30" />
            <RowDefinition Height="30" MaxHeight="30" MinHeight="30" />
            <RowDefinition Height="30" MaxHeight="30" MinHeight="30" />
            <RowDefinition />
            <RowDefinition Height="30" MaxHeight="30" MinHeight="30" />
        </Grid.RowDefinitions>
        <Button Content="Merge" Height="23" HorizontalAlignment="Right" Margin="0,0,2,0" Name="buttonMerge"
                VerticalAlignment="Center" Width="75" Click="buttonMerge_Click" IsEnabled="False"
                Grid.Row="7" Grid.ColumnSpan="2" />
        <dataInput:Label HorizontalAlignment="Center" Name="labelTitle" VerticalAlignment="Center"
                         Content="Fax Information" Foreground="White" FontWeight="Bold" FontSize="16"
                         Grid.ColumnSpan="2" />
        <dataInput:Label HorizontalAlignment="Left" Name="labelContactName" Foreground="White"
                         Content="To:" VerticalAlignment="Center" FontSize="12"
                         VerticalContentAlignment="Center" Grid.Row="1" FontWeight="Bold" Margin="5,0,0,0" />
        <dataInput:Label HorizontalAlignment="Left" Margin="5,0,0,0" Name="labelFax" Foreground="White"
                         Content="Fax:" FontSize="12" Grid.Row="2" FontWeight="Bold"
                         VerticalAlignment="Center" />
        <dataInput:Label HorizontalAlignment="Left" Margin="5,0,0,0" Name="labelFrom" Foreground="White"
                         Content="From:" FontSize="12" Grid.Row="3" FontWeight="Bold"
                         VerticalAlignment="Center" />
        <dataInput:Label HorizontalAlignment="Left" Margin="5,0,0,0" Name="labelDate" Foreground="White"
                         Content="Date:" FontSize="12" Grid.Row="4" FontWeight="Bold"
                         VerticalAlignment="Center" />
        <dataInput:Label HorizontalAlignment="Left" Margin="5,0,0,0" Name="labelSubject" Foreground="White"
                         Content="Subject:" FontSize="12" Grid.Row="5" FontWeight="Bold"
                         VerticalAlignment="Center" />
        <dataInput:Label HorizontalAlignment="Left" Margin="5,0,0,0" Name="labelContent" Foreground="White"
                         Content="Content:" FontSize="12" Grid.Row="6" FontWeight="Bold"
                         VerticalAlignment="Center" />
        <TextBox Grid.Column="1" Grid.Row="1" HorizontalAlignment="Stretch" Margin="2" Name="textBoxTo"
                 VerticalAlignment="Stretch" VerticalContentAlignment="Center"
                 HorizontalContentAlignment="Left" Text="John Smith" />
        <TextBox Grid.Column="1" Grid.Row="2" HorizontalAlignment="Stretch" Margin="2" Name="textBoxFax"
                 VerticalAlignment="Stretch" VerticalContentAlignment="Center"
                 HorizontalContentAlignment="Left" Text="+1 (69) 123456" />
        <TextBox Grid.Column="1" Grid.Row="3" HorizontalAlignment="Stretch" Margin="2" Name="textBoxFrom"
                 VerticalAlignment="Stretch" VerticalContentAlignment="Center"
                 HorizontalContentAlignment="Left" Text="Harry Hu" />
        <controls:DatePicker Grid.Column="1" Grid.Row="4" Grid.RowSpan="1" HorizontalAlignment="Left"
                             Margin="2" Name="datePickerFaxDate" VerticalAlignment="Stretch"
                             SelectedDate="6/23/2011" />
        <TextBox Grid.Column="1" Grid.Row="5" HorizontalAlignment="Stretch" Margin="2"
                 Name="textBoxSubject" VerticalAlignment="Stretch" VerticalContentAlignment="Center"
                 HorizontalContentAlignment="Left" Text="Order Return Receipt" />
        <TextBox Grid.Column="1" Grid.Row="6" HorizontalAlignment="Stretch" Margin="2"
                 Name="textBoxContent" VerticalAlignment="Stretch"
                 VerticalContentAlignment="Center" HorizontalContentAlignment="Left"
                 AcceptsReturn="True" VerticalScrollBarVisibility="Visible"
                 Text="Dear John Smith,Thank you for your response. We will contact soon you."
                 TextWrapping="Wrap" HorizontalScrollBarVisibility="Auto" />
    </Grid>
</UserControl>

using System;
using System.IO;
using System.Net;
using System.Reflection;
using System.Windows;
using System.Windows.Controls;

using Spire.Doc;

namespace MailMergeSL
{
    public partial class MainPage : UserControl
    {
        private SaveFileDialog saveFileDialog = null;
        private Document documentTemplate = null;
        public MainPage()
        {
            InitializeComponent();
            this.saveFileDialog = new SaveFileDialog();
            this.saveFileDialog.Filter = "Word Document (*.doc)|*.doc";
        }

        private void LayoutRoot_Loaded(object sender, RoutedEventArgs e)
        {
            Uri baseUri = App.Current.Host.Source;
            if ("file" == baseUri.Scheme)
            {
                Assembly assembly = this.GetType().Assembly;
                foreach (String name in assembly.GetManifestResourceNames())
                {
                    if (name.EndsWith(".Fax.doc"))
                    {
                        using (Stream docStream = assembly.GetManifestResourceStream(name))
                        {
                            this.documentTemplate = new Document(docStream, FileFormat.Doc);
                        }
                        this.buttonMerge.IsEnabled = true;
                    }
                }
            }
            else
            {
                Uri docUri = new Uri(baseUri, "../Fax.doc");

                WebClient webClient = new WebClient();
                webClient.AllowReadStreamBuffering = true;
                webClient.OpenReadAsync(docUri);
                webClient.OpenReadCompleted +=
                    delegate(object eventSender, OpenReadCompletedEventArgs eventArgs)
                {
                    using (Stream docStream = eventArgs.Result)
                    {
                        this.documentTemplate = new Document(docStream, FileFormat.Doc);
                    }
                    this.buttonMerge.IsEnabled = true;
                };
            }
        }

        private void buttonMerge_Click(object sender, RoutedEventArgs e)
        {
            String[] fieldNames
                = new String[] { "Contact Name", "Fax", "From", "Date", "Subject", "Content" };
            DateTime faxDate
                = this.datePickerFaxDate.SelectedDate.HasValue ? 
                    this.datePickerFaxDate.SelectedDate.Value : DateTime.Now;
            String[] fieldValues
                = new String[] 
                {
                    this.textBoxTo.Text,
                    this.textBoxFax.Text,
                    this.textBoxFrom.Text,
                    faxDate.ToShortDateString(),
                    this.textBoxSubject.Text,
                    this.textBoxContent.Text
                };
            this.documentTemplate.MailMerge.Execute(fieldNames, fieldValues);

            bool? result = this.saveFileDialog.ShowDialog();
            if (result.HasValue && result.Value)
            {
                using (Stream stream = this.saveFileDialog.OpenFile())
                {
                    this.documentTemplate.SaveToStream(stream, FileFormat.Doc);
                }
            }
        }
    }
}

Imports System
Imports System.IO
Imports System.Net
Imports System.Reflection
Imports System.Windows
Imports System.Windows.Controls

Imports Spire.Doc

Partial Public Class MainPage
    Inherits UserControl

    Private saveFileDialog As SaveFileDialog
    Private documentTemplate As Document

    Private WithEvents webClient As WebClient

    Public Sub New()
        InitializeComponent()
        Me.saveFileDialog = New SaveFileDialog()
        Me.saveFileDialog.Filter = "Word Document (*.doc)|*.doc"
    End Sub

    Private Sub LayoutRoot_Loaded(ByVal sender As System.Object, _
            ByVal e As System.Windows.RoutedEventArgs)
        Dim baseUri As Uri = App.Current.Host.Source
        If "file" = baseUri.Scheme Then
            Dim assembly As Assembly = Me.[GetType]().Assembly
            For Each name As [String] In assembly.GetManifestResourceNames()
                If name.EndsWith(".Fax.doc") Then
                    Using docStream As Stream = assembly.GetManifestResourceStream(name)
                        Me.documentTemplate = New Document(docStream, FileFormat.Doc)
                    End Using
                    Me.buttonMerge.IsEnabled = True
                End If
            Next
        Else
            Dim docUri As New Uri(baseUri, "../Fax.doc")

            webClient = New WebClient()
            webClient.AllowReadStreamBuffering = True
            webClient.OpenReadAsync(docUri)
        End If
    End Sub

    Private Sub DownloadFileCompleted(ByVal sender As Object, _
            ByVal e As OpenReadCompletedEventArgs) Handles webClient.OpenReadCompleted
        Using docStream As Stream = e.Result
            Me.documentTemplate = New Document(docStream, FileFormat.Doc)
        End Using
        Me.buttonMerge.IsEnabled = True
    End Sub

    Private Sub buttonMerge_Click(ByVal sender As System.Object, _
            ByVal e As System.Windows.RoutedEventArgs)
        Dim fieldNames As [String]() = _
            New [String]() {"Contact Name", "Fax", "From", "Date", "Subject", "Content"}
        Dim faxDate As DateTime = DateTime.Now
        If Me.datePickerFaxDate.SelectedDate.HasValue Then
            faxDate = Me.datePickerFaxDate.SelectedDate.Value
        End If

        Dim fieldValues As [String]() = _
            New [String]() {Me.textBoxTo.Text, Me.textBoxFax.Text, Me.textBoxFrom.Text, _
                            faxDate.ToShortDateString(), Me.textBoxSubject.Text, Me.textBoxContent.Text}
        Me.documentTemplate.MailMerge.Execute(fieldNames, fieldValues)

        Dim result As System.Nullable(Of Boolean) = Me.saveFileDialog.ShowDialog()
        If result.HasValue AndAlso result.Value Then
            Using stream As Stream = Me.saveFileDialog.OpenFile()
                Me.documentTemplate.SaveToStream(stream, FileFormat.Doc)
            End Using
        End If
    End Sub
End Class

Published in Mail Merge

Tagged under

Word merge event handler in C#, VB.NET

2010-10-21 13:51:07 Written by Administrator

Demo
C# source
VB.Net source

The sample demonstrates how to handle merge event.

public partial class Form1 : Form
{
    private int lastIndex = 0;
    public Form1()
    {
        InitializeComponent();
    }

    private void button1_Click(object sender, EventArgs e)
    {
        //Create word document
        Document document = new Document();
        document.LoadFromFile(@"..\..\..\..\..\..\Data\Fax2.doc");
        lastIndex = 0;

        List<CustomerRecord> customerRecords = new List<CustomerRecord>();
        CustomerRecord c1 = new CustomerRecord();
        c1.ContactName = "Lucy";
        c1.Fax = "786-324-10";
        c1.Date = DateTime.Now;
        customerRecords.Add(c1);

        CustomerRecord c2 = new CustomerRecord();
        c2.ContactName = "Lily";
        c2.Fax = "779-138-13";
        c2.Date = DateTime.Now;
        customerRecords.Add(c2);

        CustomerRecord c3 = new CustomerRecord();
        c3.ContactName = "James";
        c3.Fax = "363-287-02";
        c3.Date = DateTime.Now;
        customerRecords.Add(c3);

        //Execute mailmerge
        document.MailMerge.MergeField += new MergeFieldEventHandler(MailMerge_MergeField);
        document.MailMerge.ExecuteGroup(new MailMergeDataTable("Customer", customerRecords));

        //Save doc file.
        document.SaveToFile(@"Sample.doc", FileFormat.Doc);
    }

    void MailMerge_MergeField(object sender, MergeFieldEventArgs args)
    {
        //Next row
        if (args.RowIndex > lastIndex)
        {
            lastIndex = args.RowIndex;
            AddPageBreakForMergeField(args.CurrentMergeField);
        }
    }

    void AddPageBreakForMergeField(IMergeField mergeField)
    {
        //Find position of needing to add page break
        bool foundGroupStart = false;
        Paragraph paramgraph = mergeField.PreviousSibling.Owner as Paragraph;
        MergeField merageField = null;
        while (!foundGroupStart)
        {
            paramgraph = paramgraph.PreviousSibling as Paragraph;
            for (int i = 0; i < paramgraph.Items.Count; i++)
            {
                merageField = paramgraph.Items[i] as MergeField;
                if ((merageField != null) && (merageField.Prefix == "GroupStart"))
                {
                    foundGroupStart = true;
                    break;
                }
            }
        }

        paramgraph.AppendBreak(BreakType.PageBreak);
    }
}

public class CustomerRecord
{
    private string m_contactName;
    public string ContactName
    {
        get
        {
            return m_contactName;
        }
        set
        {
            m_contactName = value;
        }
    }

    private string m_fax;
    public string Fax
    {
        get
        {
            return m_fax;
        }
        set
        {
            m_fax = value;
        }
    }

    private DateTime m_date;
    public DateTime Date
    {
        get
        {
            return m_date;
        }
        set
        {
            m_date = value;
        }
    }
}

	Public Partial Class Form1
		Inherits Form
		Private lastIndex As Integer = 0
		Public Sub New()
			InitializeComponent()
		End Sub

		Private Sub button1_Click(sender As Object, e As EventArgs)
			'Create word document
			Dim document As New Document()
			document.LoadFromFile("..\..\..\..\..\Data\Fax2.doc")
			lastIndex = 0

			Dim customerRecords As New List(Of CustomerRecord)()

			Dim c1 As New CustomerRecord()
			c1.ContactName = "Lucy"
			c1.Fax = "786-324-10"
			c1.[Date] = DateTime.Now
			customerRecords.Add(c1)

			Dim c2 As New CustomerRecord()
			c2.ContactName = "Lily"
			c2.Fax = "779-138-13"
			c2.[Date] = DateTime.Now
			customerRecords.Add(c2)

			Dim c3 As New CustomerRecord()
			c3.ContactName = "James"
			c3.Fax = "363-287-02"
			c3.[Date] = DateTime.Now
			customerRecords.Add(c3)

			'Execute mailmerge
			document.MailMerge.MergeField += New MergeFieldEventHandler(AddressOf MailMerge_MergeField)
			document.MailMerge.ExecuteGroup(New MailMergeDataTable("Customer", customerRecords))

			'Save doc file.
			document.SaveToFile("Sample.doc", FileFormat.Doc)
		End Sub

		Private Sub MailMerge_MergeField(sender As Object, args As MergeFieldEventArgs)
			'Next row
			If args.RowIndex > lastIndex Then
				lastIndex = args.RowIndex
				AddPageBreakForMergeField(args.CurrentMergeField)
			End If
		End Sub

		Private Sub AddPageBreakForMergeField(mergeField As IMergeField)
			'Find position of needing to add page break
			Dim foundGroupStart As Boolean = False
			Dim paramgraph As Paragraph = TryCast(mergeField.PreviousSibling.Owner, Paragraph)
			Dim merageField As MergeField = Nothing
			While Not foundGroupStart
				paramgraph = TryCast(paramgraph.PreviousSibling, Paragraph)
				For i As Integer = 0 To paramgraph.Items.Count - 1
					merageField = TryCast(paramgraph.Items(i), MergeField)
					If (merageField IsNot Nothing) AndAlso (merageField.Prefix = "GroupStart") Then
						foundGroupStart = True
						Exit For
					End If
				Next
			End While

			paramgraph.AppendBreak(BreakType.PageBreak)
		End Sub
	End Class

	Public Class CustomerRecord
		Private m_contactName As String
		Public Property ContactName() As String
			Get
				Return m_contactName
			End Get
			Set
				m_contactName = value
			End Set
		End Property

		Private m_fax As String
		Public Property Fax() As String
			Get
				Return m_fax
			End Get
			Set
				m_fax = value
			End Set
		End Property

		Private m_date As DateTime
		Public Property [Date]() As DateTime
			Get
				Return m_date
			End Get
			Set
				m_date = value
			End Set
		End Property
	End Class
End Namespace

Published in Mail Merge

Tagged under

Word Nested Mail Merge in C#, VB.NET

2010-07-22 07:30:36 Written by Administrator

Demo
C# source
VB.Net source

The sample demonstrates how to merge nestedmail into a document.

private void button1_Click(object sender, EventArgs e)
{
    List list = new List();
    DataSet dsData = new DataSet();

    dsData.ReadXml(@"..\..\..\..\..\..\Data\Orders.xml");

    //Create word document
    Document document = new Document();
    document.LoadFromFile(@"..\..\..\..\..\..\Data\Invoice.doc");

    DictionaryEntry dictionaryEntry = new DictionaryEntry("Customer", string.Empty);
    list.Add(dictionaryEntry);

    dictionaryEntry = new DictionaryEntry("Order", "Customer_Id = %Customer.Customer_Id%");
    list.Add(dictionaryEntry);

    document.MailMerge.ExecuteWidthNestedRegion(dsData, list);
  
    //Save doc file.
    document.SaveToFile("Sample.doc", FileFormat.Doc);

    //Launching the MS Word file.
    WordDocViewer("Sample.doc");
}

private void WordDocViewer(string fileName)
{
    try
    {
        System.Diagnostics.Process.Start(fileName);
    }
    catch { }
}

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
	Dim list_Renamed As New List(Of DictionaryEntry)()
	Dim dsData As New DataSet()

	dsData.ReadXml("..\..\..\..\..\..\Data\Orders.xml")

	'Create word document
	Dim document_Renamed As New Document()
	document_Renamed.LoadFromFile("..\..\..\..\..\..\Data\Invoice.doc")

	Dim dictionaryEntry_Renamed As New DictionaryEntry("Customer", String.Empty)
	list_Renamed.Add(dictionaryEntry_Renamed)

	dictionaryEntry_Renamed = New DictionaryEntry("Order", "Customer_Id = %Customer.Customer_Id%")
	list_Renamed.Add(dictionaryEntry_Renamed)

	document_Renamed.MailMerge.ExecuteWidthNestedRegion(dsData, list_Renamed)

	'Save doc file.
	document_Renamed.SaveToFile("Sample.doc", FileFormat.Doc)

	'Launching the MS Word file.
	WordDocViewer("Sample.doc")
End Sub

Private Sub WordDocViewer(ByVal fileName As String)
	Try
		Process.Start(fileName)
	Catch
	End Try
End Sub

Published in Mail Merge

Tagged under

Word Mail Merge in C#, VB.NET

2010-07-22 07:24:42 Written by Administrator

Demo
C# source
VB.Net source

The sample demonstrates how to merge mail into a document.

private void button1_Click(object sender, EventArgs e)
{
    //Create word document
    Document document = new Document();
    document.LoadFromFile(@"..\..\..\..\..\..\Data\Fax.doc");

    string[] filedNames = new string[]{"Contact Name","Fax","Date"};

    string[] filedValues = new string[]{"John Smith","+1 (69) 123456",System.DateTime.Now.Date.ToString()};

    document.MailMerge.Execute(filedNames, filedValues);

  
    //Save doc file.
    document.SaveToFile("Sample.doc", FileFormat.Doc);

    //Launching the MS Word file.
    WordDocViewer("Sample.doc");
}

private void WordDocViewer(string fileName)
{
    try
    {
        System.Diagnostics.Process.Start(fileName);
    }
    catch { }
}

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
	'Create word document
	Dim document_Renamed As New Document()
	document_Renamed.LoadFromFile("..\..\..\..\..\..\Data\Fax.doc")

	Dim filedNames() As String = {"Contact Name","Fax","Date"}

	Dim filedValues() As String = {"John Smith","+1 (69) 123456",Date.Now.Date.ToString()}

	document_Renamed.MailMerge.Execute(filedNames, filedValues)


	'Save doc file.
	document_Renamed.SaveToFile("Sample.doc", FileFormat.Doc)

	'Launching the MS Word file.
	WordDocViewer("Sample.doc")
End Sub

Private Sub WordDocViewer(ByVal fileName As String)
	Try
		Process.Start(fileName)
	Catch
	End Try
End Sub

Published in Mail Merge

Tagged under

News Category

Mail Merge (4)

Doc MailMerge Silverlight

Word merge event handler in C#, VB.NET

Word Nested Mail Merge in C#, VB.NET

Word Mail Merge in C#, VB.NET