Send email: Difference between revisions

=={{header|Ada}}==

{{libheader|AWS}}

with Ada.Text_IO;

use Ada, AWS;

end if;

end Sendmail;

 

=={{header|AutoHotkey}}==

ahk [http://www.autohotkey.com%2Fforum%2Ftopic39797.html discussion]

{{libheader | COM.ahk}}

sText := "hello"

sFrom := "ahk@rosettacode"

COM_Release(pmsg)

COM_Term()

 

=={{header|BBC BASIC}}==

{{works with|BBC BASIC for Windows}}

Server$ = "smtp.gmail.com"

WHILE FN_readlinesocket(skt%, 10, reply$) > 0 : ENDWHILE

ENDPROC

 

=={{header|C++}}==

{{works with|POCO|1.3.6}}

 

// or see http://pocoproject.org/

// compile with: g++ -Wall -O3 send-mail-cxx.C -lPocoNet -lPocoFoundation

 

return EXIT_SUCCESS;

 

When run literally as above, should print:

 

This version does not do authentication. However, the login() method can accept a username and password for authentication. Also, newer versions of POCO provide SecureSMTPClientSession, for doing STARTTLS.

 

=={{header|Clojure}}==

 

[https://github.com/drewr/postal Postal] wraps JavaMail to make sending emails simple and platform independent.

 

(send-message {:host "smtp.gmail.com"

:cc ["bob@builder.com" "dora@explorer.com"]

:subject "Yo"

 

{{out}}

=={{header|D}}==

Requires the libcurl library to be installed on the system.

import std.net.curl;

 

s.message = "Subject:test\n\nExample Message";

s.perform;

 

=={{header|Delphi}}==

procedure SendEmail;

var

end;

end;

 

=={{header|Emacs Lisp}}==

Variable <code>send-mail-function</code> holds a function for sending a message from the current buffer. The user or sysadmin is expected to set that variable to a preferred method (<code>sendmail</code>, SMTP, etc). The default queries the user for initial setup.

 

(with-temp-buffer

(insert "From: " from "\n"

(my-send-email "from@example.com" "to@example.com" ""

"very important"

 

The buffer filling here pays no attention to charset or possible special characters in the fields or text.

This one uses the build-in SMTP vocabulary. Note that 'to' and 'cc' need to be arrays of strings containing an email address.

 

USING: accessors io.sockets locals namespaces smtp ;

IN: scratchpad

"my.gmail.address@gmail.com" "qwertyuiasdfghjk" <plain-auth>

>>auth \ smtp-config set-global <email> f >>from t >>to

 

=={{header|Fantom}}==

There's a built-in Email library, which will work on the JVM, CLR and Javascript runtimes. Errors are thrown if there is a problem with the protocol or the network.

 

using email

 

}

}

 

 

A full little command-line program that can be used to send simple e-mails. Uses the built-in smtp package.

Supports TLS connections.

 

 

import (

 

fmt.Printf("Message sent.\n")

 

=={{header|Groovy}}==

From [http://www.jedox.com/en/send-email-using-javamail-groovy-script/] we can get email solution for Groovy

import javax.mail.*

import javax.mail.internet.*

/*Call function */

simpleMail(s1, s2 , s3, "TITLE", "TEXT");

 

==Icon and {{header|Unicon}}==

 

A Unicon-specific solution is:

mail := open("mailto:"||args[1], "m", "Subject : "||args[2],

"X-Note: automatically send by Unicon") |

every write(mail , !&input)

close (mail)

 

=={{header|Java}}==

 

 

import javax.mail.MessagingException;

Transport.send(message);

}

 

 

 

=={{header|Lasso}}==

This example leverages Lasso's built in Email_Send method.

 

// sends plain text and html in same email

// simple usage is below

-body = 'Lasso is awesome, you should try it!'

)

 

=={{header|Liberty BASIC}}==

This program requires sendemail.exe and sendemail.pl in the same directory, available free from Caspian's SendEmail Site.

text$ = "This is a simple text message."

 

 

end

=={{header|Lingo}}==

Lingo has no built-in support for sending email. But this can be achieved e.g. by using Shell Xtra and one of the available command-line SMTP clients.

{{libheader|Shell Xtra}}

-- Sends email via SMTP using senditquiet.exe (15 KB)

-- @param {string} fromAddr

res = sx.shell_cmd(cmd)

return not(res contains "ERROR")

 

=={{header|LiveCode}}==

LiveCode provides a built-in method that will create an email in the registered mailto: handler on supported OS.

To create and ''send'' an email in LiveCode requires coding your own smtp client, or using one of a couple of 3rd party stacks.

 

=={{header|LotusScript}}==

 

Dim db As NotesDatabase

Dim doc As NotesDocument

doc.SendTo = "John Doe"

doc.Subject = "Subject of this mail"

 

=={{header|Lua}}==

Using [http://w3.impa.br/~diego/software/luasocket/smtp.html LuaSocket's SMTP module] (from the documentation on that page):

 

local smtp = require("socket.smtp")

 

source = smtp.message(mesgt)

}

 

Mathematica has the built-in function SendMail, example:

"Subject" -> "Sending Email from Mathematica", "Body" -> "Hello world!",

The following options can be specified:

"Cc"

"Bcc"

"ReplyTo"

"ServerAuthentication"

Possible options for EncryptionProtocol are: "SSL","StartTLS" and "TLS". This function should work fine on all the OS's Mathematica runs, which includes the largest 3: Windows, Linux, Mac OSX.

 

=={{header|NewLISP}}==

* using library smtp.lsp

 

=={{header|Nim}}==

Compile with <code>nim c -d:ssl mail</code>

 

proc sendMail(fromAddr: string; toAddrs, ccAddrs: seq[string];

subject, message, login, password: string;

server = "smtp.gmail.com"; port = Port 465; ssl = true) =

 

sendMail(fromAddr = "nim@gmail.com",

message = "Nim says hi!\nAnd bye again!",

login = "nim@gmail.com",

 

=={{header|OCaml}}==

* using the library [http://www.linux-nantes.org/~fmonnier/OCaml/smtp-mail/ smtp-mail-0.1.3]

Smtp.helo h "hostname";;

Smtp.mail h "<john.smith@example.com>";;

let email_msg = "Happy Birthday";;

Smtp.data h (email_header ^ "\r\n\r\n" ^ email_msg);;

 

=={{header|Perl}}==

This subroutine throws an appropriate error if it fails to connect to the server or authenticate. It should work on any platform Perl does.

 

use Authen::SASL;

# Net::SMTP's 'auth' method needs Authen::SASL to work, but

# Authen::SASL here.

 

(from => '', to => [], cc => [],

subject => '', body => '',

ref $o{$_} or $o{$_} = [$o{$_}] foreach 'to', 'cc';

 

or die "Couldn't connect to SMTP server";

 

$smtp->dataend;

 

 

An example call:

 

from => 'A. T. Tappman',

to => ['suchandsuch@example.com', 'soandso@example.org'],

host => 'smtp.example.com:587',

user => 'tappman@example.com',

 

If the <code>host</code> parameter is omitted, <code>send_email</code> falls back on the <code>SMTP_Hosts</code> defined in <code>Net::Config</code>. Hence, only two arguments are strictly necessary:

 

to => 'suchandsuch@example.com',

 

LWP can send email by a POST to a <code>mailto:</code> URL. The message is given as a HTTP request. This is mainly of interest for treating different types of URLs in a common way. LWP sends merely by running the <code>sendmail</code> program, or on MacOS classic by SMTP (to <code>SMTPHOSTS</code> environment variable). For reference, the <code>$ua-&gt;post()</code> method does not suit since it constructs a message as MIME "form data".

 

use LWP::UserAgent;

use HTTP::Request;

send_email('from-me@example.com', 'to-foo@example.com', '',

"very important subject",

 

=={{header|PHP}}==

 

=={{header|PicoLisp}}==

PicoLisp has a built-in '[http://software-lab.de/doc/refM.html#mail mail]'

function. A minimal call would be

Instead of "Hello" an arbitrary number of arguments may follow (possibly

containing executable expressions) for the message body.

Untested:

 

string to = "some@email.add";

string subject = "Hello There.";

Protocols.SMTP.Client()->simple_mail(to,subject,from,msg);

 

=={{header|PowerShell}}==

 

The parameters are splatted with a hashtable:

[hashtable]$mailMessage = @{

From = "weirdBoy@gmail.com"

 

Send-MailMessage @mailMessage

 

=={{header|PureBasic}}==

 

CreateMail(0, "from@mydomain.com", "This is the Subject")

Else

MessageRequester("Error", "Can't sent the mail !")

 

=={{header|Python}}==

The function returns a dict of any addresses it could not forward to;

other connection problems raise [http://docs.python.org/library/smtplib.html?highlight=smtplib#smtplib.SMTP.sendmail errors].<br>

Tested on Windows, it should work on all [[wp:POSIX|POSIX]] platforms.

 

 

def sendemail(from_addr, to_addr_list, cc_addr_list,

problems = server.sendmail(from_addr, to_addr_list, message)

server.quit()

 

Example use:

to_addr_list = ['RC@gmail.com'],

cc_addr_list = ['RC@xx.co.uk'],

message = 'Howdy from a python function',

login = 'pythonuser',

 

{{out|Sample Email received}}

Howdy from a python function

</pre>

 

=={{header|R}}==

 

 

 

 

=={{header|Racket}}==

 

Racket has a built-in library for sending e-mails:

#lang racket

 

"Subject")

'("Hello World!"))

 

=={{header|REBOL}}==

 

=={{header|REXX}}==

 

=={{header|Ring}}==

See "Send email..." + nl

sendemail("smtp://smtp.gmail.com",

CalmoSoft")

see "Done.." + nl

Output:

<pre>

Uses the {{libheader|RubyGems}} gems [http://tmail.rubyforge.org TMail] which allows us to manipulate email objects conveniently, and [http://mime-types.rubyforge.org/ mime-types] which guesses a file's mime type based on its filename.

 

require 'net/smtp'

require 'tmail'

:password => 'secret'

}

 

=={{header|SAS}}==

to="afriend@someserver.com"

cc="anotherfriend@somecompany.com"

file msg;

put "Hello, Connected World!";

 

=={{header|Scala}}==

{{libheader|Scala}}

 

import javax.mail.internet.{ InternetAddress, MimeMessage }

Transport.send(message)

}

 

=={{header|Tcl}}==

{{tcllib|mime}}{{tcllib|smtp}}

Also may use the [http://tls.sourceforge.net/ tls] package (needed for sending via gmail).

package require mime

package require tls

}

 

 

=={{header|TUSCRIPT}}==

works only with Windows, on Linux OS it is possible to send an email by using the Execute function

$$ MODE TUSCRIPT

 

 

ENDIF

 

=={{header|TXR}}==

@(next :args)

@(cases)

@(end)

.

 

{{out}}

 

=={{header|VBA}}==

Const olMailItem = 0

 

Sub Test()

SendMail "somebody@somewhere", "Title", "Hello"

 

=={{header|VBScript}}==

Function send_mail(from,recipient,cc,subject,message)

With CreateObject("CDO.Message")

 

Call send_mail("Alerts@alerts.org","jkspeed@jkspeed.org","","Test Email","this is a test message")