Generacion de documentos word, anexos y envios masivos VB

[mallu1983]

Buenas,

Tengo un problema. Estoy realizando un programa que envie correos masivos a muchos emails.A cada centro le llegara un documento adjunto personalizado. Eso lo tengo mas o menos. Mi problema es que el codigo que genera los documentos no siempre genera algo, y es logico porque la condición no se cumple. Lo que quiero es que cuando la condición no se cumpla, siga adelante sin que casque leyendo el resto.
Os mando el trozo codigo.


'Obtenemos el usuario y password del responsable
codUsuario = (rdsUsuarioPassword.Fields("USUARIO"))
codPassword = (rdsUsuarioPassword.Fields("PASWORD"))
'Creamos el fichero
Set objExisteFichero = CreateObject("Scripting.FileSystemObject...
'Indicamos la ruta donde esta el documento
strDocumento = gstrDocOforDireccion & gstrDocOforDocumento
strGuardado = gstrDocOforDireccion & codUsuario & codPassword & ".doc"
'Abrimos el documento
Set wordApp = CreateObject("Word.Application")
Set WordDoc = wordApp.Documents.Open(strDocumento)
wordApp.WindowState = 1
'Abrimos un documento por centro
WordDoc.MailMerge.OpenDataSource Name:=BDNAMELOCAL, linktosource:=True, sqlstatement:="SELECT * FROM `USUARIOS_OFOR` WHERE USUARIOS_OFOR.USUARIO_OFOR= '" & codUsuario & "' AND USUARIOS_OFOR.PASSWORD_OFOR='" & codPassword & "'"
WordDoc.MailMerge.Execute False
wordApp.ActiveDocument.SaveAs strGuardado
'Cerramos el documento para que no conste en memoria
WordDoc.Close True
wordApp.Close True
WordDoc = Nothing
wordApp = Nothing
'Insertamos el documento en adjuntos
lstFiles.AddItem strGuardado

P.D:Existe algo asi? If isnull WordDoc.MailMerge.OpenDataSource...

Teneis ejemplos con generacion de documentos word, anexos y envios masivos? Gracias