如何使用批处理文件或脚本将电子邮件从一个 Gmail 帐户发送到另一个帐户？

Question

我需要一个小型 Windows 脚本来向 Gmail 帐户发送 1 行电子邮件。我尝试了许多声称可以执行此操作的实用程序，例如 BLAT，但没有一个有效。如果满足某些条件，脚本将在批处理文件中执行。脚本可以是 Perl、Python、VBScript、Java，只要它是从批处理文件执行的就没有关系。请仅在您通过从 Gmail、Hotmail 或 Yahoo 电子邮件帐户向 Gmail 帐户发送电子邮件来尝试解决方案时才回答。我默认使用的帐户是 Gmail，所以我从 Gmail 帐户发送到 Gmail 帐户。

Answer 1

Blat 让您可以直接从批处理文件发送电子邮件：

blat.exe - -f from@example.com -to to@gmail.com -s Subject -body "Text body" ^
  -server smtp.example.com:25 -u username -pw password

但 Blat 似乎不支持 SSL，因此要使其与 Gmail 一起使用，您需要一个名为 Stunnel 的附加工具（请参阅 here 和 here）。

无论如何，您应该能够使用Collaboration Data Objects (CDO) COM API 从VBScript 通过GMail 发送电子邮件：

Const schema   = "http://schemas.microsoft.com/cdo/configuration/"
Const cdoBasic = 1
Const cdoSendUsingPort = 2
Dim oMsg, oConf

' E-mail properties
Set oMsg      = CreateObject("CDO.Message")
oMsg.From     = "from@gmail.com"  ' or "Sender Name <from@gmail.com>"
oMsg.To       = "to@gmail.com"    ' or "Recipient Name <to@gmail.com>"
oMsg.Subject  = "Subject"
oMsg.TextBody = "Text body"

' GMail SMTP server configuration and authentication info
Set oConf = oMsg.Configuration
oConf.Fields(schema & "smtpserver")       = "smtp.gmail.com"
oConf.Fields(schema & "smtpserverport")   = 465
oConf.Fields(schema & "sendusing")        = cdoSendUsingPort
oConf.Fields(schema & "smtpauthenticate") = cdoBasic
oConf.Fields(schema & "smtpusessl")       = True
oConf.Fields(schema & "sendusername")     = "from@gmail.com"
oConf.Fields(schema & "sendpassword")     = "sender_password"
oConf.Fields.Update

oMsg.Send

编辑：添加了缺少的sendusing 参数，所以它现在应该可以正常工作了。

有关更多 CDO 示例，请参阅 here。

Answer 2

如果您只需要使用一些 SMTP 发送到 GMail，请在 SMTP 模式下使用 MIME::Lite Perl module - 我用它来向我的 GMail 帐户发送通知。

Answer 3

在Linux中（我不确定你在什么环境）你可以使用mail：

some_command| mail foo@gmail.com bar@gmail.com -s "subject"

Answer 4

查看perlmonks 上的script，其中详细介绍了 GMail 帐户上的 IMAP 访问。这篇文章涵盖了通过 Perl 登录到 GMail 帐户所需的一切。

或者，您可以尝试 CPAN 中的 Mail::Webmail::Gmail 模块。从外观上看，该模块可以让您跳过大部分关于连接和验证邮件服务器的复杂细节，让您得到一些简单的东西 -

my $gmail = Mail::Webmail::Gmail->new( username => 'username', password => 'password', );
$gmail->send_message( to => 'user@domain.com', subject => 'Test Message', msgbody => 'This is a test.' );

还有Email::Send::Gmail，以防您需要“仅”从 Gmail 帐户发送电子邮件。

Answer 5

#!c:/Python/python.exe -u
import libgmail
ga = libgmail.GmailAccount("username@gmail.com", "password")
ga.login()
msg=libgmail.GmailComposedMessage("friend@gmail.com", "SubjectHere", "BodyHere")
ga.sendMessage(msg)

这应该使用 python 在 Windows 上运行。确保将顶部的 shebang 更改为指向您的 python 安装。除此之外，只需输入您的姓名和密码，以及您要发送的电子邮件。