I need to create individual merge documents from Access and then attach each document to an email sent from Access. All works fine providing I do them one at a time. However, when I loop through a record set to send each one seperately, the first record goes through fine but then I get an error message "The remote server machine does not exist or is unavailable".

This is what I have so far

For Each varItem In ctlList.ItemsSelected
intMemberID = ListMFD.Column(1, varItem)
strEmailAddress = ListMFD.Column(6, varItem)
strContactName = ListMFD.Column(2, varItem)
strFee = "£" & ListMFD.Column(5, varItem) & ".00"
strMemNo = ListMFD.Column(3, varItem)
DteDue = ListMFD.Column(4, varItem)

'create mail merge reminder docs

Set objDoc = objWord.Documents.Open(strTemplatePath & "\RenewalMailMerge.doc")

objDoc.MailMerge.OpenDataSource Name:="", _
Connection:="DSN=MMSSQL;DATABASE=MMSSQL;uid=SWCAAMMS;pwd=swcaamms;", _
SQLStatement:="SELECT ShortName, MembershipNo, FeeNextDue " & _
"FROM VW_MembersFeeRemindersDueMM WHERE MembershipNo = '" & strMemNo & "'", _
LinkToSource:=True, AddToRecentFiles:=False
objDoc.MailMerge.Destination = wdSendToNewDocument
objDoc.MailMerge.Execute
objDoc.Close
objWord.Documents(1).SaveAs (strSavedDocsPath & "\" & strMemNo & "_" & Format(Now(), "yyyy") & "_Renewal.doc")
objWord.Documents.Close
objWord.Quit (Word.wdSaveChanges = False)
Next varitem

Can anyone help please.