求这个邮件群发的代码，部分代码如下

Function Printf(ByVal theFormat As String,ParamArray Values())As
Dim ResultString As String
Dim Element As Variant
Dim FormatLocation As Long

If IsEmpty(Values()) Then
'raise an error
End if

ResultString= theFormat
For Each Element In Values
FormatLocation=InStr(ResultString,"%")
ResultString=Left$(ResultString,FormatLocation-1)&Element
Next
Printf=ResultString

End Function

我是菜鸟，只是因为想用ACCESS群发邮件程序而去慢慢学习这个VBA，求大神指导。
另，附上这个代码的原地址，以上是我打出来的，可能不完整，就那个“邮件程序.accdb”的完整代码，感激不尽！
http://wenku.baidu.com/link?url=cNXpQLqDWId2J1i8IROc2G3R74PHEtELbWbNU-z3nFMZH7rGSKxeRTbgiB7RS4EY9R8tugnIjPOc_OyvLXDR0JT6L_HObd-S-Wy9kXOxngu

http://bbs.fobshanghai.com/viewthread.php?tid=4287268&pid=70959015&page=1&extra=#pid70959015