Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

回复 加入收藏帖  复制
我要提问 帖子上移

通过FOXMAIL发送邮件,但收件人一直为空白

chinasa 等级: 贵宾★★★★★ 积分:824 金币:120 来自:宁波Access交流中心 发表于:2015-05-29 14:49:14   已结帖
楼主

 

附件的程序通过OUTLOOK可以正常显示收件人,但把默认邮件改为FOXMAIL后收件人就是空白(邮件主题和附件都正常),不知道为什么?

 

�������ش˸���

 

 

access培训  诚聘access开发人员

    chinasa
      获得社区协助:请教问题(即发帖)115篇,其中获得解决的108篇;
      协助社区成员:协助他人(即回帖)761篇,其中被设为【最佳答案】的200篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
Top
煮江品茶 等级:荣誉管理员★★★★★ 积分:5117 金币:17920 来自:武汉Access交流中心 发表于2015/5/29 16:03:45 
1楼 得分: 0
还没折腾清楚?

    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    煮江品茶
      获得社区协助:请教问题(即发帖)11篇,其中获得解决的7篇;
      协助社区成员:协助他人(即回帖)4989篇,其中被设为【最佳答案】的1573篇;
      协助我们社区:发布技术文章448篇,邀请了47名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
chinasa 等级:贵宾★★★★★ 积分:824 金币:120 来自:宁波Access交流中心 发表于2015/5/29 16:11:15 
2楼 得分: 0

煮版,是呀。

我现在发邮件去问腾讯客服了,但还没收到回复,也不知道他们会不会理我。在百度上也查两天了,但根本就没这方面的资料。



    chinasa
      获得社区协助:请教问题(即发帖)115篇,其中获得解决的108篇;
      协助社区成员:协助他人(即回帖)761篇,其中被设为【最佳答案】的200篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
煮江品茶 等级:荣誉管理员★★★★★ 积分:5117 金币:17920 来自:武汉Access交流中心 发表于2015/5/29 16:25:37 
3楼 得分: 0
用CDO.Message对象处理试试

    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    煮江品茶
      获得社区协助:请教问题(即发帖)11篇,其中获得解决的7篇;
      协助社区成员:协助他人(即回帖)4989篇,其中被设为【最佳答案】的1573篇;
      协助我们社区:发布技术文章448篇,邀请了47名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
chinasa 等级:贵宾★★★★★ 积分:824 金币:120 来自:宁波Access交流中心 发表于2015/5/29 16:43:13 
4楼 得分: 0
我查下怎么用,这个还不会呢。不过还是先谢过帮助指条路。

    chinasa
      获得社区协助:请教问题(即发帖)115篇,其中获得解决的108篇;
      协助社区成员:协助他人(即回帖)761篇,其中被设为【最佳答案】的200篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
煮江品茶 等级:荣誉管理员★★★★★ 积分:5117 金币:17920 来自:武汉Access交流中心 发表于2015/5/29 17:23:12 最佳答案
5楼 得分: 2
Sub MySendObject()
    Dim rs As New ADODB.Recordset
    Dim ssql As String
    Dim i As Long
    
    ssql = "select distinct 村,邮箱 from CODE_TB2"
    rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i = 1 To rs.RecordCount
        ssql = "select * from tb1 whhere 村='" & rs!村.Value & "'"
        Call UpdateQuery("邮件查询", ssql)
        DoCmd.OutputTo acOutputQuery, "邮件查询", acFormatXLS, "d:\邮件查询.xls"
        DoEvents
        
        SendEmail "你的邮箱全称", "你的邮箱服务器", "你的邮箱密码", "报表", "请及时上报!", "d:\邮件查询.xls", rs!邮箱.Value
        rs.movenext
    Next
End Sub




Public Sub SendEmail(ByVal stMail As String, ByVal stRx As String, ByVal stPw As String, _
                     ByVal stZt As String, ByVal stNr As String, ByVal stFj As String, ByVal stE1 As String)
    '功能:发邮件
    '参数:stMail --- 发送方邮箱全名称
    '      stRx   --- 发送方邮箱后缀服务器
    '      stPw   --- 发送方邮箱密码
    '      stZt   --- 邮件主题
    '      stNr   --- 邮件内容
    '      stFj   --- 邮件附件
    '      stE1   --- 主要接收方邮箱完整帐号
    '示例:SendEmail "88888888","QQ.COM","123456","报表","请于2015年/6/10前修改后上报。","d:\报表.xls","4444444@QQ.COM"
    
    Dim vCDO As Object
    Dim stul As String
    
    stul = "http://schemas.microsoft.com/cdo/configuration/" '微软服务器网址
    
    Set vCDO = CreateObject("CDO.Message")
    
    vCDO.From = stUs & "@" & stRx                            '发送方邮箱完整帐号
    vCDO.SubJect = stZt                                      '邮件主题
    vCDO.Textbody = stNr                                     '邮件内容
    vCDO.AddAttachment stFj                                  '邮件附件
    vCDO.to = stE1                                           '主要接收方邮箱完整帐号
    
    With vCDO.Configuration.Fields
        .Item(stul & "smtpserver") = "smtp." & stRx          'SMTP服务器地址
        .Item(stul & "smtpserverport") = 25                  'SMTP服务器端口
        .Item(stul & "sendusing") = 2                        '发送端口
        .Item(stul & "smtpauthenticate") = 1                 '
        .Item(stul & "sendusername") = stUs                  '发送方邮箱名称
        .Item(stul & "sendpassword") = stPw                  '发送方邮箱密码
        .Update
    End With
    
    vCDO.Send
    Set vCDO = Nothing
End Sub


Sub UpdateQuery(ByVal queryName As String, ByVal strSql As String)
    '功能:动态生成查询
    Dim Qdef As QueryDef
    If DCount("*", "MSysObjects", "type=5 and name='" & queryName & "'") = 0 Then
    Set Qdef = CurrentDb.CreateQueryDef(queryName)
    Else
        Set Qdef = CurrentDb.QueryDefs(queryName)
    End If
    Qdef.SQL = strSql
    Set Qdef = Nothing
End Sub


    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    煮江品茶
      获得社区协助:请教问题(即发帖)11篇,其中获得解决的7篇;
      协助社区成员:协助他人(即回帖)4989篇,其中被设为【最佳答案】的1573篇;
      协助我们社区:发布技术文章448篇,邀请了47名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
chinasa 等级:贵宾★★★★★ 积分:824 金币:120 来自:宁波Access交流中心 发表于2015/6/1 8:13:30 
6楼 得分: 0

正在测试中,稍后汇报结果。



    chinasa
      获得社区协助:请教问题(即发帖)115篇,其中获得解决的108篇;
      协助社区成员:协助他人(即回帖)761篇,其中被设为【最佳答案】的200篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
chinasa 等级:贵宾★★★★★ 积分:824 金币:120 来自:宁波Access交流中心 发表于2015/6/1 15:18:44 
7楼 得分: 0
搞不定,我放弃了。

    chinasa
      获得社区协助:请教问题(即发帖)115篇,其中获得解决的108篇;
      协助社区成员:协助他人(即回帖)761篇,其中被设为【最佳答案】的200篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
总记录:7篇  页次:1/1 9 1 :
您还没有在Access软件网登录不能回复帖子
  • 你没有登录,请点击后面链接登录:登录
  • 如果你没有注册,请点击后面链接注册:注册,注册完成后,请再次访问本页功能。