B编译错误，若在64位系统上使用，则必须更新此项目钟的代码

lusa

B编译错误，若在64位系统上使用，则必须更新此项目钟的代码，请检查并更新DECLARE语句，然后用Ptrsafe属性标记他们，这个怎么修改啊？真的是太难了。。。。。
Sub 多人批量发邮件()  '一次发给多人邮件 【Ctrl+Enter Foxmail 发送邮件快捷键】
  Dim rng As Range, MyMail As String, str As String, Temp As String, i As Integer
  For Each rng In Range([c2], Cells(Rows.Count, 3).End(xlUp)) '遍历C列所有非空单元格(标题除外)
    str = str & rng.Text & ";" '串连所有数据,以";"分隔
  Next
  For Each rng In Range([A2], Cells(Rows.Count, 2).End(xlUp)) ''遍历B列所有非空单元格(标题除外)
    i = i + 1 '累加变量
    Temp = Temp & rng.Text & IIf(i Mod 2, "     ", "%0A") '串连所有数据,用空格或者换行符"%0A"分隔
  Next
  MyMail = "mailto:" & Mid$(str, 1, Len(str) - 1) & "?subject=成绩通知&body=成绩表：%0A" & Temp & "%0A%0A" + Space(20) & "通知日期：" & Date
  ShellExecute 0&, vbNullString, MyMail, vbNullString, vbNullString, 1 '发邮件
  Application.SendKeys "^~"
End Sub

zpy2

用webservice....

lsdongjh

信息不全，应该是 ShellExecute这个函数的声明问题，其实有提示了【用Ptrsafe属性标记他们】

lusa

zpy2 发表于 2021-1-29 16:38
用webservice....

百度了一下，这个软件看不懂哎，我太难了

lusa

lsdongjh 发表于 2021-1-29 16:46
信息不全，应该是 ShellExecute这个函数的声明问题，其实有提示了【用Ptrsafe属性标记他们】

格式一:mailto

如:ShellExecute(Handle,"open", "mailto:", "", "", SW_SHOWNORMAL);打开新邮件窗口。

格式二:mailto:用户账号@邮件服务器地址

如:ShellExecute(Handle, "open"," mailto:who@mail.neu.edu.cn", "", "", SW_SHOWNORMAL);打开新邮件窗口，并自动填入收件人地址。若指定多个收件人地址，则收件人地址之间必须用分号或逗号分隔开(下同)。

格式三:mailto:用户账号@邮件服务器地址

subject=邮件主题&body=邮件正文

如:ShellExecute(handle, 'open', ' mailto:who@mail.neu.edu.cn?subject=Hello&Body=This is a test',"", "", SW_SHOWNORMAL);打开新邮件窗口，并自动填入收件人地址、邮件主题和邮件正文。若邮件正文包括多行文本，则必须在每行文本之间加入换行转义字符%0a。

例子(delphi):

在一个应用程序调用c:\Project1.exe;

ShellExecute(handle, 'open',"c:\Project1.exe",'字串内容',"", SW_SHOWNORMAL);

在Project1.exe里可以调用:

最后的那个参数，为窗口指定可视性方面的一个命令。

请用下述任何一个常数

SW_HIDE 隐藏窗口，活动状态给另一个窗口

SW_MINIMIZE 最小化窗口，活动状态给另一个窗口

SW_RESTORE 用原来的大小和位置显示一个窗口，同时令其进入活动状态

SW_SHOW 用当前的大小和位置显示一个窗口，同时令其进入活动状态

SW_SHOWMAXIMIZED 最大化窗口，并将其激活

SW_SHOWMINIMIZED 最小化窗口，并将其激活

SW_SHOWMINNOACTIVE 最小化一个窗口，同时不改变活动窗口

SW_SHOWNA 用当前的大小和位置显示一个窗口，不改变活动窗口

SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口，同时不改变活动窗口

SW_SHOWNORMAL 与SW_RESTORE相同



百度到了这个，可惜不会用。。。。。谢谢谢谢回复

zpy2

lusa 发表于 2021-1-30 19:42
百度了一下，这个软件看不懂哎，我太难了

这个是公式，vba是
application.webservice
或者xmlhttp
用webservice
可以直接浏览器访问也行，就是一个发送邮件的接口。

zpy2

lusa 发表于 2021-1-30 19:42
百度了一下，这个软件看不懂哎，我太难了

https://m.sogou.com/web/searchList.jsp?s_from=pcsearch&keyword=excel%20webservice