2 u013243752 u013243752 于 2013.12.23 11:12 提问

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

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

Csdn user default icon
上传中...
上传图片
插入图片