教大家如何使用批处理来发送电子邮件

woodee

学习 一个

54czp

666

come77

感谢分享好技巧

Liyoulove

牛逼啊

ak009

试试

12丫2

这挺好，收藏一下

szwp

这个不用改设置。

Synopsis:  sendEmail.exe -f ADDRESS [options]

  Required:
    -f ADDRESS                from (sender) email address
    * At least one recipient required via -t, -cc, or -bcc
    * Message body required via -m, STDIN, or -o message-file=FILE

llnm

{:1_183

JAXE16

感謝分享

旁观者清

谢谢分享。

wcs

支持分享

窄口牛

vbs就能发邮件，貌似不需要telnet？

1. function Send_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment)  
   
2. 'code by NetPatch  
   
3. 'VBS发送邮件参数说明  
   
4. 'You_Account：你的邮件帐号  
   
5. 'You_Password:你的邮件密码  
   
6. 'Send_Email:  
   
7. '主要邮件地址  
   
8. 'Send_Email2: 备用邮件地址  
   
9. 'Send_Topic:  
   
10. '邮件主题  
    
11. 'Send_Body:  
    
12. '邮件内容  
    
13. 'Send_Attachment:邮件附件  
    
14. 
    
15. You_ID=Split(You_Account, "@", -1, vbTextCompare)  
    
16. '帐号和服务器分离  
    
17. MS_Space = "http://schemas.microsoft.com/cdo/configuration/"  
    
18. '这个是必须要的，不过可以放心的事，不会通过微软发送邮件  
    
19. Set Email = CreateObject("CDO.Message")  
    
20. Email.From = You_Account  
    
21. '这个一定要和发送邮件的帐号一样  
    
22. Email.To = Send_Email  
    
23. '主要邮件地址  
    
24. 
    
25. If Send_Email2 <> "" Then  
    
26. 
    
27. Email.CC = Send_Email2  
    
28. '备用邮件地址  
    
29. End If  
    
30. 
    
31. Email.Subject = Send_Topic  
    
32. '邮件主题  
    
33. Email.Textbody = Send_Body  
    
34. '邮件内容  
    
35. 
    
36. If Send_Attachment <> "" Then  
    
37. 
    
38. Email.AddAttachment Send_Attachment  
    
39. '邮件附件  
    
40. End If  
    
41. 
    
42. With Email.Configuration.Fields  
    
43. .Item(MS_Space&"sendusing") = 2  
    
44. '发信端口  
    
45. .Item(MS_Space&"smtpserver") = "smtp."&You_ID(1)  
    
46. 'SMTP服务器地址  
    
47. .Item(MS_Space&"smtpserverport") = 25  
    
48. 'SMTP服务器端口  
    
49. .Item(MS_Space&"smtpauthenticate") = 1  
    
50. 'cdobasec  
    
51. .Item(MS_Space&"sendusername") = You_ID(0)  
    
52. '你的邮件帐号  
    
53. .Item(MS_Space&"sendpassword") = You_Password  
    
54. '你的邮件密码  
    
55. .Update  
    
56. End With  
    
57. Email.Send  
    
58. '发送邮件  
    
59. Set Email=Nothing  
    
60. '关闭组件  
    
61. 
    
62. Send_Mail=True  
    
63. '如果没有任何错误信息，则表示发送成功,否则发送失败  
    
64. If Err Then  
    
65. 
    
66. Err.Clear  
    
67. 
    
68. Send_Mail=False  
    
69. End If  
    
70. End Function  
    
71. 
    
72. '以下是利用上面的函数发送带附件的邮件例子  
    
73. If Send_Mail("sss852@163.com","xxxxxx","other@qq.com","","邮件主题","Some code from vbs","")=True Then  
    
74. 
    
75. Wscript.Echo "发送成功"  
    
76. Else  
    
77. 
    
78. Wscript.Echo "发送失败"  
    
79. End If

复制代码

plusv

andyrave 发表于 2022-5-12 23:33
还要开Telnet 系统下也就算了 PE下太麻烦了 第三方小程序加批   PE和系统下都可以用

楼主 主要是提供思路,
用啥方法 能抓老鼠的猫都行.

致于 Telnet.exe 我是从 Windows XP 复制一份来运行.

andyrave

还要开Telnet 系统下也就算了 PE下太麻烦了 第三方小程序加批   PE和系统下都可以用

plusv

bjay2008xmy 发表于 2022-5-12 21:47
BASE64加密可能不够安全。这只是一个演示教程，可以实现自动化，其他的不会

回错人了.

plusv

htmlc4 发表于 2022-5-12 21:36
telnet没加密吧，不够安全

有很多 第 3 方 Telnet 有 SSL 可替代.

htmlc4

telnet没加密吧，不够安全

邪恶海盗

bjay2008xmy 发表于 2022-5-12 21:05
plusv阅历挺丰富的，30年前已经用过计算机了

人家早就财务自由了,哪像我们这些低阶打工人...

plusv

邪恶海盗 发表于 2022-5-12 20:53
壕,我们做朋友吧...

习 :
我们是打断骨头连着筋的同胞兄弟,是血浓于水的一家人.

朋友 是啥.

邪恶海盗

plusv 发表于 2022-5-12 20:40
这个方法在初学 IP Protocol 时玩过,
可能是约 25 年之前的事了,
Telnet 功能还是很多的,

壕,我们做朋友吧...

481416322

暂时无此需求

plusv

这个方法在初学 IP Protocol 时玩过,
可能是约 25 年之前的事了,
Telnet 功能还是很多的,
也可以测试服务器是否正常提供服务,
不过用过最神奇的是远端云计算,
可能是约 30 年之前的事了,
本机 UNIX  比较慢,
Telnet 到 另一台 UNIX,
把 本机运算 丢给 比较快的 另一台 UNIX,
真是惊呆.

PS:
那时的 UNIX 工作站 硬件 每台都超过 一百万 台币(227,433 人民币),
那时的 UNIX 工作站 软件 每台都超过 一百万 台币(227,433 人民币),
真是贼贵,
约 30 年之前,大陆 房价如何,可以买多少户.

Zzfabgroup

厉害

9527sss