{"id":2132,"date":"2011-04-11T13:00:22","date_gmt":"2011-04-11T11:00:22","guid":{"rendered":"http:\/\/blogs.wittwer.fr\/whiler\/?p=2132"},"modified":"2012-03-03T04:26:00","modified_gmt":"2012-03-03T03:26:00","slug":"email-delphi-gmail","status":"publish","type":"post","link":"https:\/\/blogs.wittwer.fr\/whiler\/2011\/04\/11\/email-delphi-gmail\/","title":{"rendered":"Envoyer un email en utilisant Delphi et GMail"},"content":{"rendered":"

Juste une petite proc\u00e9dure qui me permettra d’envoyer des emails depuis une application \u00e9crite avec Delphi<\/a> si j’en ai \u00e9ventuellement besoin un jour.<\/p>\n

Cette proc\u00e9dure est bas\u00e9e sur les explications et exemples du blog de Marco Cant\u00f9<\/a>.<\/p>\n

Je l’ai test\u00e9e avec succ\u00e8s et j’esp\u00e8re que cela ne changera pas si je m’en sers un jour…<\/p>\n

Voici son code :<\/p>\n

<\/p>\n

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
<\/div><\/td>
procedure<\/span> SendEmail(<\/span>sTo,<\/span> sSubject,<\/span> sText:<\/span> string<\/span>)<\/span>;<\/span>
\nconst<\/span>
\n  GMAIL_ACCOUNT  =<\/span> '******@gmail.com'<\/span>;<\/span> \/\/ Votre compte GMail<\/span>
\n  GMAIL_PASSWORD =<\/span> '******'<\/span>;<\/span>           \/\/ Votre mot de passe GMail<\/span>
\n  GMAIL_HOST     =<\/span> 'smtp.gmail.com'<\/span>;<\/span>
\n  GMAIL_PORT     =<\/span> 587<\/span>;<\/span>
\nvar<\/span>
\n  crPrevious :<\/span> TCursor;<\/span>
\n  idSSLGMail :<\/span> TIdSSLIOHandlerSocketOpenSSL;<\/span>
\n  idSMTPGMail:<\/span> TIdSMTP;<\/span>
\n  email      :<\/span> TIdMessage;<\/span>
\nbegin<\/span>
\n  crPrevious                      :<\/span>=<\/span> Screen.<\/span>Cursor<\/span>;<\/span>
\n  Screen.<\/span>Cursor<\/span>                   :<\/span>=<\/span> crHourGlass;<\/span>
\n
\n  idSSLGMail                      :<\/span>=<\/span> TIdSSLIOHandlerSocketOpenSSL.<\/span>Create<\/span>(<\/span>nil<\/span>)<\/span>;<\/span>
\n  idSSLGMail.<\/span>SSLOptions<\/span>.<\/span>Method<\/span>    :<\/span>=<\/span> sslvTLSv1;<\/span>
\n  idSSLGMail.<\/span>SSLOptions<\/span>.<\/span>Mode<\/span>      :<\/span>=<\/span> sslmUnassigned;<\/span>
\n
\n  idSMTPGMail                     :<\/span>=<\/span> TIdSMTP.<\/span>Create<\/span>(<\/span>nil<\/span>)<\/span>;<\/span>
\n  idSMTPGMail.<\/span>IOHandler<\/span>           :<\/span>=<\/span> idSSLGMail;<\/span>
\n  idSMTPGMail.<\/span>UseTLS<\/span>              :<\/span>=<\/span> utUseExplicitTLS;<\/span>
\n  idSMTPGMail.<\/span>Host<\/span>                :<\/span>=<\/span> GMAIL_HOST;<\/span>
\n  idSMTPGMail.<\/span>Port<\/span>                :<\/span>=<\/span> GMAIL_PORT;<\/span>
\n  idSMTPGMail.<\/span>UserName<\/span>            :<\/span>=<\/span> GMAIL_ACCOUNT;<\/span>
\n  idSMTPGMail.<\/span>Password<\/span>            :<\/span>=<\/span> GMAIL_PASSWORD;<\/span>
\n
\n  email                           :<\/span>=<\/span> TIdMessage.<\/span>Create<\/span>(<\/span>nil<\/span>)<\/span>;<\/span>
\n  email.<\/span>From<\/span>.<\/span>Address<\/span>              :<\/span>=<\/span> GMAIL_ACCOUNT;<\/span>
\n  email.<\/span>Recipients<\/span>.<\/span>EMailAddresses<\/span> :<\/span>=<\/span> sTo;<\/span>
\n  email.<\/span>Subject<\/span>                   :<\/span>=<\/span> sSubject;<\/span>
\n  email.<\/span>Body<\/span>.<\/span>Text<\/span>                 :<\/span>=<\/span> sText;<\/span>
\n
\n  idSMTPGMail.<\/span>Connect<\/span>;<\/span>
\n  idSMTPGMail.<\/span>Send<\/span>(<\/span>email)<\/span>;<\/span>
\n  idSMTPGMail.<\/span>Disconnect<\/span>;<\/span>
\n
\n  idSSLGMail.<\/span>Free<\/span>;<\/span>
\n  idSMTPGMail.<\/span>Free<\/span>;<\/span>
\n  email.<\/span>Free<\/span>;<\/span>
\n
\n  Screen.<\/span>Cursor<\/span>                   :<\/span>=<\/span> crPrevious;<\/span>
\nend<\/span>;<\/span><\/div><\/td><\/tr><\/tbody><\/table><\/div>\n
\n \n <\/div>
\"ajax<\/div><\/div>","protected":false},"excerpt":{"rendered":"

Juste une petite proc\u00e9dure qui me permettra d\u2019envoyer des emails depuis une application \u00e9crite avec Delphi si j\u2019en ai \u00e9ventuellement besoin un jour.<\/p>\n

Cette proc\u00e9dure est bas\u00e9e sur les explications et exemples du blog de Marco Cant\u00f9.<\/p>\n

Je l’ai test\u00e9e avec succ\u00e8s et j’esp\u00e8re que cela ne changera pas si je m’en sers un jour…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":"","_links_to":"","_links_to_target":""},"categories":[7,6],"tags":[27,154,108],"class_list":["post-2132","post","type-post","status-publish","format-standard","hentry","category-delphi","category-dev","tag-coloration-syntaxique","tag-delphi","tag-script"],"_links":{"self":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts\/2132","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/comments?post=2132"}],"version-history":[{"count":0,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/posts\/2132\/revisions"}],"wp:attachment":[{"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/media?parent=2132"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/categories?post=2132"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blogs.wittwer.fr\/whiler\/wp-json\/wp\/v2\/tags?post=2132"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}