accessler 2013-12-23 03:12
浏览 1050

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

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

  • 写回答

0条回答

    报告相同问题?

    悬赏问题

    • ¥15 求差集那个函数有问题,有无佬可以解决
    • ¥15 【提问】基于Invest的水源涵养
    • ¥20 微信网友居然可以通过vx号找到我绑的手机号
    • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
    • ¥15 解riccati方程组
    • ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
    • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
    • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
    • ¥50 树莓派安卓APK系统签名
    • ¥65 汇编语言除法溢出问题