问题描述
- 求这个邮件群发的代码,部分代码如下
-
Function Printf(ByVal theFormat As String,ParamArray Values())As
Dim ResultString As String
Dim Element As Variant
Dim FormatLocation As LongIf IsEmpty(Values()) Then
'raise an error
End ifResultString= theFormat
For Each Element In Values
FormatLocation=InStr(ResultString,"%")
ResultString=Left$(ResultString,FormatLocation-1)&Element
Next
Printf=ResultStringEnd Function
我是菜鸟,只是因为想用ACCESS群发邮件程序而去慢慢学习这个VBA,求大神指导。
另,附上这个代码的原地址,以上是我打出来的,可能不完整,就那个“邮件程序.accdb”的完整代码,感激不尽!
http://wenku.baidu.com/link?url=cNXpQLqDWId2J1i8IROc2G3R74PHEtELbWbNU-z3nFMZH7rGSKxeRTbgiB7RS4EY9R8tugnIjPOc_OyvLXDR0JT6L_HObd-S-Wy9kXOxnguhttp://bbs.fobshanghai.com/viewthread.php?tid=4287268&pid=70959015&page=1&extra=#pid70959015
时间: 2024-06-16 15:55:47