email with CDO

[Michel Claveau]

Hi ! Bonsoir !

I had see a script for send email with Blat.

J'ai vu, récemment, un script pour envoyer un e-mail avec Blat.

Idea : the same thing, with CDO (part of Windows).

Cela m'a donné l'idée de faire la même chose avec CDO (intégré à Windows).

Here, the code (need AutoIt beta, for COM):

Ci-dessous, le code (il faut AutoIt bêta, pour avoir COM) :

expandcollapse popup

#include <GUIConstants.au3>

GUICreate("Email (by CDO)", 400, 350)

$posv=10

$posv+=25
GUICtrlCreateLabel ("TO:", 12, $posv+3, 100, 100, -1, -1) 
$TO = GUICtrlCreateInput ("", 80, $posv, 300, 20)

$posv+=25
GUICtrlCreateLabel ("FROM:", 12, $posv+3, 100, 100, -1, -1) 
$FROM = GUICtrlCreateInput ("", 80, $posv, 300, 20)

$posv+=25
GUICtrlCreateLabel ("SUBJECT:", 12, $posv+3, 100, 100, -1, -1) 
$SUBJECT = GUICtrlCreateInput ("", 80, $posv, 300, 20)

$posv+=25
GUICtrlCreateLabel ("BODY:", 12, $posv+3, 100, 100, -1, -1) 
$BODY = GUICtrlCreateInput ("", 80, $posv, 300, 150, $ES_MULTILINE)

$posv+=155
GUICtrlCreateLabel ("Attachment1:", 12, $posv+3, 100, 100, -1, -1) 
$ATTACHMENT = GUICtrlCreateInput("", 80, $posv, 300, 20)

$posv+=45
$CLOSE = GUICtrlCreateButton ("CLOSE", 100, $posv, 75, 20)
$SEND = GUICtrlCreateButton ("SEND", 250, $posv, 75, 20)

GUISetState() 


While 1
    $msg = GUIGetMsg()

    Select
        Case $msg = $GUI_EVENT_CLOSE 
            ExitLoop

        case $msg = $CLOSE 
            ExitLoop 

        Case $msg = $SEND 
            Envoi()
EndSelect

Wend
exit


Func Envoi()
            $mel=ObjCreate("CDO.Message")
            $mel.From=GUICtrlRead($FROM)
            $mel.To=GUICtrlRead($TO)
            $mel.Subject=GUICtrlRead($SUBJECT)
            $mel.Textbody=GUICtrlRead($BODY)
            $att=GUICtrlRead($ATTACHMENT)
            if stringlen($att)>0 then
                    $mel.AddAttachment($att)
            endif
            $mel.Send()
            msgbox(0,"Mail","sended.")
EndFunc

[MSLx Fanboy]

The only problem is that the AddAttachment method requires the full path to the file (unlike vbscript), if it is only a relative path, the @WorkingDir macro must be used...

[Michel Claveau]

Hi !

Thanks, for the return's infos...

[Nuffilein805]

i just discovered a little problem using your script

if you just do your code in an empty script and run it, scite gives this msg:

line 62 : ==> The requested action with this object has failed.:

$mel.Send()

$mel.Send()^ ERROR

got a clue why it doesn't work?

[Michel Claveau]

Hi !

Perhaps:

- a field needed is empty?

- your SMTP need User+Password?

- rights on CDO in too low? Are you administrator?

- you are no connect to Internet?

- have you a firewall who block CDO?

Or other reason that I don't know...

I had used the script on only four computers, all on win-XP

Have you try with WSH? Or VBscript?

For info, I use also Wscite ; but in French, with a config "house".

[blademonkey]

Hi !

Perhaps:

- a field needed is empty?

- your SMTP need User+Password?

- rights on CDO in too low? Are you administrator?

- you are no connect to Internet?

- have you a firewall who block CDO?

Or other reason that I don't know...

I had used the script on only four computers, all on win-XP

Have you try with WSH? Or VBscript?

For info, I use also Wscite ; but in French, with a config "house".

Trop cool ton script. Ca fais du bien de lire des postes venant de francophones.

Bienvenue a autoit et merci pour ta participation.

IE. You rock.

-Monkey

Edited October 17, 2005 by blademonkey

[Michel Claveau]

Bonsoir !

Si tu es en France, tu seras peut-être intéressé par les

Rencontres-Paradox-Ponx-2005

Dans lesquelles je vais présenter plusieurs utilitaires développés avec AutoIt, et utilisables sous Paradox, avec Python, ou en invite de commande.

Plus de renseignements ici :

Rencontres-Paradox-Ponx-2005

@-salutations

Michel Claveau

[littleclown]

Michel Claveau its a really really disrespectful to write on your own language!

This is an international forum!

[trancexx]

Michel Claveau its a really really disrespectful to write on your own language!

This is an international forum!

You little clown.

[corgano]

i just discovered a little problem using your script

if you just do your code in an empty script and run it, scite gives this msg:

got a clue why it doesn't work?

I got the same message. compiled it and ran as administrator with no luck. Could this be because I am in windows 7? I tried it on an xp comp, but I got the same error (maby it was because I was not admin on there)

[Hellooopsforgotsendcommand]

Michel Claveau its a really really disrespectful to write on your own language!

This is an international forum!

Yes but the French always think French should be THE language for international discourse.

It's all there fault anyway, they helped the USA get independence and it has backfired on them because it's really the US that has made english the world language.Now the French have to speak english, how terrible for them.

Edited March 29, 2010 by automatedfaults