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

481416322

高！

481416322

实在是高！

9527sss

Zzfabgroup

厉害

plusv

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

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

481416322

暂时无此需求

邪恶海盗

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

壕,我们做朋友吧...

plusv

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

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

朋友 是啥.

邪恶海盗

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

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

htmlc4

telnet没加密吧，不够安全

plusv

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

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

plusv

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

回错人了.

andyrave

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

plusv

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

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

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

窄口牛

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

复制代码

wcs

支持分享

旁观者清

谢谢分享。

JAXE16

感謝分享

llnm

{:1_183

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

12丫2

这挺好，收藏一下

ak009

试试

Liyoulove

牛逼啊

come77

感谢分享好技巧