Andreik Posted March 13, 2009 Share Posted March 13, 2009 I noticed that are many people using yahoo and have problems in sending mail with _InetSmtpMail() function. Those who have problems with _InetSmtpMail () can try this function probably with more success. I write 3 examples (all tested), just replace From and To addresses: #include <Mail.au3> $NAME = "Andreik" $FROM = "user@yahoo.com" $TO = "username@yahoo.com" $SUBJECT = "This is a test" $BODY = "This is only a test" $MAIL = Mail($NAME,$FROM,$TO,$SUBJECT,$BODY) If $MAIL Then MsgBox(0,"","Your message was sent") Else MsgBox(0,"","An error occurred sending mail.") EndIf #include <Mail.au3> $NAME = "Andreik" $FROM = "user@yahoo.com" $TO = "username@yahoo.com" $SUBJECT = "This is a test (HTML)" $BODY = "<html><body><b><u>This should be bold and underline</u></b></body></html>" $CONTENT_TYPE = "text/html" $MAIL = Mail($NAME,$FROM,$TO,$SUBJECT,$BODY,$CONTENT_TYPE) If $MAIL Then MsgBox(0,"","Your message was sent") Else MsgBox(0,"","An error occurred sending mail.") EndIf expandcollapse popup#include <Mail.au3> $NAME = "Andreik" $FROM = "user@yahoo.com" $TO = "username@yahoo.com" $SUBJECT = "Mail with attach file" $BODY = "RnVuYyBNYWlsKCROQU1FLCRGUk9NLCRUTywkU1VCSkVDVCwkQk9EWT0iIiwkQ09OVEVOVF9UWVBFPSJ0ZXh0L3BsYWluIiwk RklMRV9OQU1FPSIiLCRERVNDUklQVElPTj0iIiwkQ09OVEVOVF9FTkNPREU9IiIsJENPTlRFTlRfSUQ9IjxtYWlsX3Rlc3RAeWFo b28uY29tPiIsJFNNVFA9ImEubXgubWFpbC55YWhvby5jb20iKQ0KTG9jYWwgJE9VVCA9IFRydWUNClRDUFN0YXJ0dXAoKQ0KJFNF UlZFUiA9IFRDUENvbm5lY3QoVENQTmFtZVRvSVAoJFNNVFApLDI1KQ0KSWYgJFNFUlZFUiA8PiAtMSBUaGVuDQpUQ1BTZW5kKCRT RVJWRVIsJ0hFTE8gJyAmICROQU1FICYgQENSTEYpDQpJZiBAZXJyb3IgVGhlbiAkT1VUID0gRmFsc2UNClNsZWVwKDEwMCkNClRD UFNlbmQoJFNFUlZFUiwnTUFJTCBGUk9NOiA8JyAmICRGUk9NICYgJz4nICYgQENSTEYpDQpJZiBAZXJyb3IgVGhlbiAkT1VUID0g RmFsc2UNClNsZWVwKDEwMCkNClRDUFNlbmQoJFNFUlZFUiwnUkNQVCBUTzogPCcgJiAkVE8gJiAnPicmIEBDUkxGKQ0KSWYgQGVy cm9yIFRoZW4gJE9VVCA9IEZhbHNlDQpTbGVlcCgxMDApDQpUQ1BTZW5kKCRTRVJWRVIsJ0RBVEEnICYgQENSTEYpDQpJZiBAZXJy b3IgVGhlbiAkT1VUID0gRmFsc2UNClNsZWVwKDEwMCkNClRDUFNlbmQoJFNFUlZFUiwnRnJvbTonICYgJE5BTUUgJiAnPCcgJiAk RlJPTSAmICc+JyAmIEBDUkxGKQ0KSWYgQGVycm9yIFRoZW4gJE9VVCA9IEZhbHNlDQpTbGVlcCgxMDApDQpUQ1BTZW5kKCRTRVJW RVIsJ1RvOicgJiAkVE8gJiBAQ1JMRikNCklmIEBlcnJvciBUaGVuICRPVVQgPSBGYWxzZQ0KU2xlZXAoMTAwKQ0KVENQU2VuZCgk U0VSVkVSLCdTdWJqZWN0OicgJiAkU1VCSkVDVCAmIEBDUkxGKQ0KSWYgQGVycm9yIFRoZW4gJE9VVCA9IEZhbHNlDQpTbGVlcCgx MDApDQpUQ1BTZW5kKCRTRVJWRVIsJ1NlbmRlcjogTWljcm9zb2Z0IE91dGxvb2sgRXhwcmVzcyA2LjAwLjI4MDAuMTE1OCcgJiBA Q1JMRikNCklmIEBlcnJvciBUaGVuICRPVVQgPSBGYWxzZQ0KU2xlZXAoMTAwKQ0KVENQU2VuZCgkU0VSVkVSLCdNaW1lLVZlcnNp b246IDEuMCcgJiBAQ1JMRikNCklmIEBlcnJvciBUaGVuICRPVVQgPSBGYWxzZQ0KU2xlZXAoMTAwKQ0KSWYgJENPTlRFTlRfVFlQ RSA9IERlZmF1bHQgQW5kICRGSUxFX05BTUUgPSAiIiBUaGVuDQpUQ1BTZW5kKCRTRVJWRVIsJ0NvbnRlbnQtVHlwZTogJyAmICRD T05URU5UX1RZUEUgJiBAQ1JMRikNCklmIEBlcnJvciBUaGVuICRPVVQgPSBGYWxzZQ0KRWxzZUlmICRDT05URU5UX1RZUEUgPD4g RGVmYXVsdCBBbmQgJEZJTEVfTkFNRSA8PiAiIiBUaGVuDQpUQ1BTZW5kKCRTRVJWRVIsJ0NvbnRlbnQtVHlwZTogJyAmICRDT05U RU5UX1RZUEUgJiAnOyBuYW1lPSInICYgJEZJTEVfTkFNRSAmICciJyAmIEBDUkxGKQ0KSWYgQGVycm9yIFRoZW4gJE9VVCA9IEZh bHNlDQpMb2NhbCAkRk5BTUUgPSBTdHJpbmdSaWdodCgkRklMRV9OQU1FLFN0cmluZ0xlbigkRklMRV9OQU1FKS1TdHJpbmdJblN0 cigkRklMRV9OQU1FLCJcIiwwLC0xKSkNClRDUFNlbmQoJFNFUlZFUiwnQ29udGVudC1EaXNwb3NpdGlvbjogYXR0YWNobWVudDsg ZmlsZW5hbWU9JyAmICRGTkFNRSAmIEBDUkxGKSANCklmIEBlcnJvciBUaGVuICRPVVQgPSBGYWxzZQ0KRWxzZUlmICRDT05URU5U X1RZUEUgPSBEZWZhdWx0IEFuZCAkRklMRV9OQU1FIDw+ICIiIFRoZW4NClRDUFNlbmQoJFNFUlZFUiwnQ29udGVudC1UeXBlOiAn ICYgJENPTlRFTlRfVFlQRSAmICc7IG5hbWU9IicgJiAkRklMRV9OQU1FICYgJyInICYgQENSTEYpDQpJZiBAZXJyb3IgVGhlbiAk T1VUID0gRmFsc2UNCkxvY2FsICRGTkFNRSA9IFN0cmluZ1JpZ2h0KCRGSUxFX05BTUUsU3RyaW5nTGVuKCRGSUxFX05BTUUpLVN0 cmluZ0luU3RyKCRGSUxFX05BTUUsIlwiLDAsLTEpKQ0KVENQU2VuZCgkU0VSVkVSLCdDb250ZW50LURpc3Bvc2l0aW9uOiBhdHRh Y2htZW50OyBmaWxlbmFtZT0nICYgJEZOQU1FICYgQENSTEYpICANCklmIEBlcnJvciBUaGVuICRPVVQgPSBGYWxzZQ0KRWxzZUlm ICRDT05URU5UX1RZUEUgPD4gRGVmYXVsdCBBbmQgJEZJTEVfTkFNRSA9ICIiIFRoZW4NClRDUFNlbmQoJFNFUlZFUiwnQ29udGVu dC1UeXBlOiAnICYgJENPTlRFTlRfVFlQRSAmIEBDUkxGKQ0KSWYgQGVycm9yIFRoZW4gJE9VVCA9IEZhbHNlDQpFbmRJZg0KU2xl ZXAoMTAwKQ0KSWYgJERFU0NSSVBUSU9OIDw+ICIiIFRoZW4NClRDUFNlbmQoJFNFUlZFUiwnQ29udGVudC1EZXNjcmlwdGlvbjog JyAmICRERVNDUklQVElPTiAmIEBDUkxGKQ0KSWYgQGVycm9yIFRoZW4gJE9VVCA9IEZhbHNlDQpTbGVlcCgxMDApDQpFbmRJZg0K SWYgJENPTlRFTlRfRU5DT0RFIDw+ICIiIFRoZW4NClRDUFNlbmQoJFNFUlZFUiwnQ29udGVudC1UcmFuc2Zlci1FbmNvZGluZzog JyAmICRDT05URU5UX0VOQ09ERSAmIEBDUkxGKQ0KSWYgQGVycm9yIFRoZW4gJE9VVCA9IEZhbHNlDQpTbGVlcCgxMDApDQpFbmRJ Zg0KSWYgJENPTlRFTlRfSUQgPD4gIiIgVGhlbg0KVENQU2VuZCgkU0VSVkVSLCdDb250ZW50LUlEOiAnICYgJENPTlRFTlRfSUQg JiBAQ1JMRikNCklmIEBlcnJvciBUaGVuICRPVVQgPSBGYWxzZQ0KU2xlZXAoMTAwKQ0KRW5kSWYNClRDUFNlbmQoJFNFUlZFUixA Q1JMRikNCklmIEBlcnJvciBUaGVuICRPVVQgPSBGYWxzZQ0KU2xlZXAoMTAwKQ0KSWYgJEJPRFkgPD4gIiIgVGhlbg0KVENQU2Vu ZCgkU0VSVkVSLCRCT0RZICYgQENSTEYpDQpJZiBAZXJyb3IgVGhlbiAkT1VUID0gRmFsc2UNClNsZWVwKDEwMCkNCkVuZElmDQpU Q1BTZW5kKCRTRVJWRVIsQENSTEYpDQpJZiBAZXJyb3IgVGhlbiAkT1VUID0gRmFsc2UNClNsZWVwKDEwMCkNClRDUFNlbmQoJFNF UlZFUiwiLiIgJiBAQ1JMRikNCklmIEBlcnJvciBUaGVuICRPVVQgPSBGYWxzZQ0KU2xlZXAoMzAwKQ0KRWxzZQ0KJE9VVCA9IEZh bHNlDQpTZXRFcnJvcihGYWxzZSwtMSwtMSkNCkVuZElmDQpUQ1BTaHV0ZG93bigpDQpSZXR1cm4gJE9VVA0KRW5kRnVuYw==" $CONTENT_TYPE = "application/au3" $FILE = "Mail.au3" $DESCRIPTION = "This is an UDF" $ENCODE = "base64" $MAIL = Mail($NAME,$FROM,$TO,$SUBJECT,$BODY,$CONTENT_TYPE,$FILE,$DESCRIPTION,$ENCODE) If $MAIL Then MsgBox(0,"","Your message was sent") Else MsgBox(0,"","An error occurred sending mail.") EndIf Please post if something is wrong or not working.Mail.au3 When the words fail... music speaks. Link to comment Share on other sites More sharing options...
Developers Jos Posted March 13, 2009 Developers Share Posted March 13, 2009 You could have used the code for _InetSmtpMail() and see how it could be fixed as it more or less does exactly what you are doing. Anyways, I always use _InetSmtpMailCom() ... maybe I should put that in the standard UDF library. SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
Andreik Posted March 13, 2009 Author Share Posted March 13, 2009 You could have used the code for _InetSmtpMail() and see how it could be fixed as it more or less does exactly what you are doing.Anyways, I always use _InetSmtpMailCom() ... maybe I should put that in the standard UDF library. I just looked in the Inet.au3. You're right, looks very much like what I did. However it is necessary to be able to send mails with attached files. I will try to follow steps from _InetSmtpMail to make this function better where is possible. When the words fail... music speaks. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now