You can use a remote merge file like this.

Set objXML = CreateObject("Microsoft.XMLHTTP")
Set objFile = CreateObject("Scripting.FileSystemObject")
objXML.Open "GET", "http:<public address>/RemoteMergeFile.txt", False
objXML.Send
strMergeData = objXML.responseText
strMergeFile = "\\<local address>\My Data Sources\LocalMergeFile.txt"
Set objTextStream = objFile.OpenTextFile(strMergeFile, 2, True)
objTextStream.Write strMergeData
with ActiveDocument.MailMerge
.OpenDataSource Name:= strMergeFile
.Execute Pause:=False
end with

Go through this link:

http://www.webmasterworld.com/forum47/2863.htm