| View previous topic :: View next topic |
| Author |
Message |
CodeScript
Moderator Team
Joined: 08 Jun 2003
Posts: 1060
Location: India
|
 Posted: Mon Jul 07, 2003 5:32 pm Post subject: SEND MAIL USING DEFAULT SMTP CLIENT - UNLIMITED ATTACHMENTS |
 |
|
SENDING MAIL THROUGH DEFAULT SMTP CLIENT WITH UNLIMITED ATTACHMENTS.
This script heps you send e-mail message with attcahments of any kind through your default email client -eg MS OUTLOOK, OUTLOOK EXPRESS, EUDORA etc.However it will not work if no e-mail client is setup on your machine.(This script does nothing more than dumping the data into your default email client !)
You may hide the default client and use window send and send the mail but this may not be always reliable.
You can also use any VDS SMTP dll to directly send mail from your program even if the dll doesnot support attachments by suitable changes to the script - However this still requires that user has a SMTP email access.
The Script needs MPACK15 a MIME encoder to work.You can get it from:
ftp://ftp.andrew.cmu.edu/pub/mpack/ and pplace it in the same directory after extracting the files from the package.
You can get all the files in a zip file.
"http://www.geocities.com/codescript2002/MAILER.zip"
If U want a cleaner and sophisticated access you should go for vdsipp03.dll by PGWARE.
Use at your own risk.
| Code: |
REM SENDING MAIL THROUGH DEFAULT SMTP CLIENT WITH ATTACHMENTS.
REM
REM AUTHOR: CODESCRIPT
REM
REM
REM The Script needs MPACK15 a MIME encoder to work.You can get it from:
REM ftp://ftp.andrew.cmu.edu/pub/mpack/
REM "PORTIONS OF THIS SOFWARE ARE Copyright 1993,1994 by Carnegie Mellon University,
REM AND from code written by Bell Communications research, Inc. (Bellcore)
REM RSA Data Security,Inc."
REM Acknowledgements FLY TO John G. Myers, jgm+@cmu.edu
REM "THIS SCRIPT COMES WITH ABSOLUTELY NO WARRANTY OR FITTNESS FOR ANY
REM SITAUTION/JOB/INSTALLATION"
REM THE USER AGREEES TO USE AT HIS/HER OWN RISK.
REM PERMISSION TO USE/COPY THIS SCRIPT FREE IS GRANTED PROVIDED THE ABOVE INFO IS
REM LEFT INTACT.YOU ALSO AGREE TO KEEP INTACT THE COPYRIGHT NOTICE OF ACCOMPANYING
REM PACKAGE AND ADD THEIR COPYRIGHT NOTICE TO THE DOCUMENTATION.
REM
REM
REM SINCE THE SCRIPT USES A DOS PROGRAM INSTALLING IN DIRECTORY WITH SHORT PATH
REM HELP AVOID FILE NAME PROBLEMS AND RELATED SCRIPT ERRORS.
Title SMTP mail with attachments for default E-mail client.
DIALOG CREATE,Send Mail by CodeScript,-1,0,516,424,CLASS MYWIN,
DIALOG ADD,STYLE,STYLE1,verdana,9,,,
DIALOG ADD,STYLE,STYLE2,Comic Sans MS,10,,,
DIALOG ADD,GRADIENT,GRADIENT1,0,0,519,427,EBE7D8,EBE7D8,,LEFTTORIGHT,FIT
DIALOG ADD,EDIT,EDIT1,38,66,390,22,,,STYLE1
DIALOG ADD,EDIT,EDIT2,64,66,390,22,,,STYLE1
DIALOG ADD,EDIT,EDIT3,90,66,390,22,,,STYLE1
DIALOG ADD,EDIT,EDIT4,116,66,390,22,,,STYLE1
DIALOG ADD,LIST,LIST2,142,66,338,44,,click
DIALOG ADD,BUTTON,Attach,144,406,50,20,Attach
DIALOG ADD,BUTTON,Remove,168,406,50,20,Remove
DIALOG ADD,EDIT,EDIT5,190,66,390,168,,,STYLE2,MULTI,WRAP,SCROLL
DIALOG ADD,BUTTON,SEND,374,184,136,24,SEND
DIALOG ADD,TEXT,TEXT1,44,32,,,To:,,TRANSPARENT
DIALOG ADD,TEXT,TEXT2,70,32,,,Cc:,,TRANSPARENT
DIALOG ADD,TEXT,TEXT3,96,28,,,Bcc:,,TRANSPARENT
DIALOG ADD,TEXT,TEXT4,122,20,,,Subject :,,TRANSPARENT
DIALOG ADD,TEXT,TEXT5,156,24,,,Attach :,,TRANSPARENT
DIALOG ADD,TEXT,TEXT6,200,14,,,Message :,,TRANSPARENT,
DIALOG SHOW
DIALOG DISABLE,Remove
:Evloop
wait event
goto @event()
:AttachBUTTON
%%Attach = @filedlg("All Files (*.*)|*.*",Attach a File,,oen)
if @not(@null(%%Attach))
list add,LIST2,%%Attach
END
goto evloop
:RemoveBUTTON
If @not(@equal(@count(LIST2),0))
list delete,LIST2
else
end
If @equal(@count(LIST2),0)
dialog disable,Remove
else
end
goto evloop
:LIST2CLICK
DIALOG ENABLE,REMOVE
goto evloop
:SENDBUTTON
DIALOG DISABLE,SEND
REM DEFINE VARIABLES:
%%Recipient = @DLGTEXT(EDIT1)
%%CC = @DLGTEXT(EDIT2)
%%BCC = @DLGTEXT(EDIT3)
%%SUB = @DLGTEXT(EDIT4)
%%MESSAGE = @DLGTEXT(EDIT5)
:INITIALIZE
LIST CREATE,1
LIST LOADTEXT,1
LIST ADD,1,From:
LIST ADD,1,To: <%%Recipient>
LIST ADD,1,Cc: <%%CC>
LIST ADD,1,Bcc: <%%BCC>
LIST ADD,1,Subject: %%SUB
LIST ADD,1,Date: @datetime(dddddd tt)
LIST ADD,1,MIME-Version: 1.0
LIST ADD,1,Content-Type: multipart/mixed;
LIST ADD,1,@CHR(32)boundary=@CHR(34)----@CHR(34)
LIST ADD,1,X-Priority: Normal
LIST ADD,1,X-MSMail-Priority: Normal
LIST ADD,1,X-Unsent: 1
LIST ADD,1,X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
LIST ADD,1,
LIST ADD,1,This is a multi-part message in MIME format.
LIST ADD,1,------
LIST ADD,1,Content-Type: text/plain;
LIST ADD,1,@CHR(32)charset=@CHR(34)iso-8859-1@CHR(34)
LIST ADD,1,Content-Transfer-Encoding: 7bit
LIST ADD,1,
LIST ADD,1,%%MESSAGE
LIST ADD,1,
%A = 0
:SEEKATTACHMENT
IF @equal(%A,@count(LIST2))
goto FINISH
end
List seek,LIST2,%A
%%file = @item(LIST2)
IF @not(@NULL(%%file))
%A = @succ(%A)
LIST ADD,1,------
goto CONVERT
else
goto FINISH
:CONVERT
%%file1 = @shortname(%%file)
%%name = @name(%%file1)
RUNh @shortname(@path(%0)mpack.exe) -s 1 -o %%name.uue %%file1,wait
OPTION ERRORTRAP,ERR1
List Create,5
LIST LOADFILE,5,%%name.uue
LIST DELETE,5,0
LIST DELETE,5,1
LIST DELETE,5,2
LIST DELETE,5,3
LIST DELETE,5,4
LIST DELETE,5,5
LIST DELETE,5,6
LIST DELETE,5,7
LIST DELETE,5,8
LIST REVERSE,5,
LIST DELETE,5,0
LIST REVERSE,5,
LIST APPEND,1,5
LIST CLOSE,5
FILE DELETE,%%name.uue
goto SEEKATTACHMENT
:FINISH
LIST REVERSE,1
LIST SEEK,1,0
LIST PUT,1,--------
LIST REVERSE,1
LIST SAVEFILE,1,@path(%0)10.eml
end
Window hide,#MYWIN
SHELL "",@path(%0)10.eml
:Animate
DIALOG CREATE,Progress,-1,0,273,96,NOTITLE,ONTOP
DIALOG ADD,STYLE,STYLE3,Arial,,B,,
DIALOG ADD,PROGRESS,PROGRESS1,42,40,188,24,0,,,,SMOOTH
DIALOG ADD,TEXT,TEXT1,10,94,,,Please Wait....,,STYLE3
DIALOG SHOW
%S =0
REPEAT
%S = @SUM(%S,20)
DIALOG SET,PROGRESS1,%S
wait 0.001
UNTIL @GREATER(%S,100)
exit
:ERR1
WARN Failed processing attachments ! @CR()Try installing the program with a lesser directory depth eg. C:\Program Files\Mailer@CR()It may also be that you have selected a file more than 8 directories deep which is not supported.
exit
:Close
exit
_______________________________________________________________________
|
EDIT:
Fixed some problems:
Now it can be run from a directory like C:\Program files\mailer.
Files can be attached from upto 8 directories deep.
Added a progess element just before closing(cosmetic).
Tested with Out look express 2002 as default client. If it doesnt work let me know. If I have that client i wil have a look.
_________________
Regards
- CodeScript
 Give your application a professional look with the VDSGUI Extension |
|
| Back to top |
|
 |
Boo
Valued Contributor
Joined: 31 Oct 2003
Posts: 599
Location: Gulf Breeze, Florida USA
|
| Posted: Sun Dec 21, 2003 3:17 am Post subject: |
|
|
Hi CodeScript,
Back to this one. How can this be made to work with a client other than Outlook Express? I have tested it on my PC (FYI: Outlook, not Outlook Express, is my default client), but it always opens Outlook Express. I tried renaming the .eml file, but still no go.
Any ideas?
Thanks,
- Boo |
|
| Back to top |
|
|
CodeScript
Moderator Team
Joined: 08 Jun 2003
Posts: 1060
Location: India
|
| Posted: Mon Dec 22, 2003 5:01 am Post subject: |
|
|
I think MS outlook uses a different format/way to sore the composed mail.
Need to have a look. You can try saving a composed mail in outlook to a given place and then see what extension it has..
BTW there are many other ways - mostly using dlls to send mails using pop protocol which are independent of any email clients installed on the users computer.
_________________
Regards
- CodeScript
Give your application a professional look with the VDSGUI Extension |
|
| Back to top |
|
|
Boo
Valued Contributor
Joined: 31 Oct 2003
Posts: 599
Location: Gulf Breeze, Florida USA
|
| Posted: Tue Dec 23, 2003 9:04 am Post subject: |
|
|
Thanks CodeScript.
By the way... Is there a way to find a user's smtp and pop information (such as mail.somewhere.com) from the Windows registry?
Cheers,
- Boo |
|
| Back to top |
|
|
Vic D'Elfant
Past Contributor
Joined: 26 Jun 2002
Posts: 673
Location: The Netherlands
|
| Posted: Sat Dec 27, 2003 11:01 am Post subject: |
|
|
This is only possible when the user is using Outlook.
If so, you need his default email account id, which you can find in HKEY_CURRENT_USER\Software\Microsoft\Office\Outlook\OMI Account Manager\Default Mail Account.
Then, you can get it's server information in HKEY_CURRENT_USER\Software\Microsoft\Office\Outlook\OMI Account Manager\Accounts\<mail account id>\
Best regards  ,
Vic
_________________
phpBB Development Team |
|
| Back to top |
|
|
Boo
Valued Contributor
Joined: 31 Oct 2003
Posts: 599
Location: Gulf Breeze, Florida USA
|
| Posted: Sat Dec 27, 2003 6:43 pm Post subject: |
|
|
| Thanks Vic! |
|
| Back to top |
|
|
Vic D'Elfant
Past Contributor
Joined: 26 Jun 2002
Posts: 673
Location: The Netherlands
|
| Posted: Sat Dec 27, 2003 6:57 pm Post subject: |
|
|
Glad to help 
Vic
_________________
phpBB Development Team |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You can attach files in this forum
You can download files in this forum
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
@vdsworld