Smtp Mailer That Supports Html And Attachments.

squidol · September 14, 2011

$SMTPSERVER = "smtp.gmail.com"
$FROMNAME = "groundefiance"
$FROMADDRESS = "123@gmail.com"
$TOADDRESS = "123@gmail.com"
$SUBJECT = ("Test mail")
$Body = ClipGet()
$CCADDRESS = ""
$BCCADDRESS = ""
$IMPORTANCE = "High"
$USERNAME = "123@gmail.com"
$PASSWORD = "12345"
$IPPORT = 465
$SSL = 1
$REGEDIT = 1
_SENDMAIL()
Func _SENDMAIL()
If Not FileGetSize($ATTACH2) = 0 Then
  If _INETSMTPMAILCOM($SMTPSERVER, $FROMNAME, $FROMADDRESS, $TOADDRESS, $SUBJECT, $BODY, $ATTACH2, $CCADDRESS, $BCCADDRESS, $IMPORTANCE, $USERNAME, $PASSWORD, $IPPORT, $SSL) Then
   MsgBox(0,"","mail not sent!")
  Else
      MsgBox(0,"","mail sent!")
  EndIf
Else
      MsgBox(0,"","file size = 0 mail not sent")
EndIf
EndFunc   ;==>_SENDMAIL
Func _INETSMTPMAILCOM($S_SMTPSERVER, $S_FROMNAME, $S_FROMADDRESS, $S_TOADDRESS, $S_SUBJECT, $AS_BODY , $S_ATTACHFILES , $S_CCADDRESS , $S_BCCADDRESS , $S_IMPORTANCE , $S_USERNAME , $S_PASSWORD, $IPPORT, $SSL)
Local $OBJEMAIL = ObjCreate("CDO.Message")
$OBJEMAIL.From = '"' & $S_FROMNAME & '" <' & $S_FROMADDRESS & ">"
$OBJEMAIL.To=$S_TOADDRESS
Local $I_ERROR = 0
Local $I_ERROR_DESCIPTION = ""
If $S_CCADDRESS <> "" Then $OBJEMAIL.Cc = $S_CCADDRESS
If $S_BCCADDRESS <> "" Then $OBJEMAIL.Bcc = $S_BCCADDRESS
$OBJEMAIL.Subject = $S_SUBJECT
If StringInStr($AS_BODY, "<") And StringInStr($AS_BODY, ">") Then
  $OBJEMAIL.HTMLBody = $AS_BODY
Else
  $OBJEMAIL.Textbody = $AS_BODY & @CRLF
EndIf
If $S_ATTACHFILES <> "" Then
  Local $S_FILES2ATTACH = StringSplit($S_ATTACHFILES, ";")
  For $X = 1 To $S_FILES2ATTACH[0]
   $S_FILES2ATTACH[$X] = _PATHFULL($S_FILES2ATTACH[$X])
   ConsoleWrite("@@ Debug(62) : $S_Files2Attach = " & $S_FILES2ATTACH & @LF & ">Error code: " & @error & @LF)
   If FileExists($S_FILES2ATTACH[$X]) Then
    $OBJEMAIL.AddAttachment($S_FILES2ATTACH[$X])
   Else
    ConsoleWrite("!> File not found to attach: " & $S_FILES2ATTACH[$X] & @LF)
    SetError(1)
    Return 0
   EndIf
  Next
EndIf
;~  $OBJEMAIL.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$ObjEmail.Configuration.Fields.Item ( "http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
$ObjEmail.Configuration.Fields.Item ( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "smtp.gmail.com"
If Number($IPPORT) = 0 Then $IPPORT = 465
$ObjEmail.Configuration.Fields.Item ( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 465
If $S_USERNAME <> "" Then
  $OBJEMAIL.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  $OBJEMAIL.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $S_USERNAME
  $OBJEMAIL.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $S_PASSWORD
EndIf
If $SSL Then
  $OBJEMAIL.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
$OBJEMAIL.Configuration.Fields.Update
Switch $S_IMPORTANCE
  Case "High"
   $OBJEMAIL.Fields.Item("urn:schemas:mailheader:Importance") = "High"
  Case "Normal"
   $OBJEMAIL.Fields.Item("urn:schemas:mailheader:Importance") = "Normal"
  Case "Low"
   $OBJEMAIL.Fields.Item("urn:schemas:mailheader:Importance") = "Low"
EndSwitch
$OBJEMAIL.Fields.Update
$OBJEMAIL.Send
If @error Then
  SetError(2)
  Return $OMYRET[1]
EndIf
$OBJEMAIL = ""
EndFunc   ;==>_INETSMTPMAILCOM

Edited September 14, 2011 by squidol

water · September 14, 2011

There is no line number 101 in the script you posted.

squidol · September 14, 2011

oh this is line 101 of the script

Local $OBJEMAIL = ObjCreate("CDO.Message")

water · September 14, 2011

All that means is that your PC doesn't know what type of object you are trying to create. That could mean that your PC doesn't support that type of object, or that you typed the name wrong. For example,

$OBJEMAIL = ObjCreate("xyz")

gives that error.

So either CDO is not installed on your machine or it's broken.

SmOke_N · September 14, 2011

You have to have CDO installed on whatever computer is going to email from.

http://www.microsoft.com/downloads/detai...yID=2714320D-C997-4DE1-986F-24

Edited September 14, 2011 by SmOke_N

squidol · September 14, 2011

i've tried to install the exchangecdo.exe but still problems persist.

i'm trying steps here http://support.microsoft.com/kb/910360 and will post later what will happen :graduated:

FreeBeing · September 19, 2011

Hi,

I'm curious : why we find urls as "http://schemas.microsoft.com/cdo/configuration/" ?

Also, thank you very much for that UDF, it really helps me :graduated:

SmOke_N · September 19, 2011

Hi,

I'm curious : why we find urls as "http://schemas.microsoft.com/cdo/configuration/" ?

Also, thank you very much for that UDF, it really helps me

The udf takes advantage of the microsoft "CDO" api.

JScript · September 28, 2011

$SMTPSERVER = "smtp.gmail.com"
$FROMNAME = "groundefiance"
$FROMADDRESS = "123@gmail.com"
$TOADDRESS = "123@gmail.com"
$SUBJECT = ("Test mail")
$Body = ClipGet()
$CCADDRESS = ""
$BCCADDRESS = ""
$IMPORTANCE = "High"
$USERNAME = "123@gmail.com"
$PASSWORD = "12345"
$IPPORT = 465
$SSL = 1
$REGEDIT = 1
_SENDMAIL()
Func _SENDMAIL()
If Not FileGetSize($ATTACH2) = 0 Then
  If _INETSMTPMAILCOM($SMTPSERVER, $FROMNAME, $FROMADDRESS, $TOADDRESS, $SUBJECT, $BODY, $ATTACH2, $CCADDRESS, $BCCADDRESS, $IMPORTANCE, $USERNAME, $PASSWORD, $IPPORT, $SSL) Then
   MsgBox(0,"","mail not sent!")
  Else
      MsgBox(0,"","mail sent!")
  EndIf
Else
      MsgBox(0,"","file size = 0 mail not sent")
EndIf
EndFunc   ;==>_SENDMAIL
Func _INETSMTPMAILCOM($S_SMTPSERVER, $S_FROMNAME, $S_FROMADDRESS, $S_TOADDRESS, $S_SUBJECT, $AS_BODY , $S_ATTACHFILES , $S_CCADDRESS , $S_BCCADDRESS , $S_IMPORTANCE , $S_USERNAME , $S_PASSWORD, $IPPORT, $SSL)
Local $OBJEMAIL = ObjCreate("CDO.Message")
$OBJEMAIL.From = '"' & $S_FROMNAME & '" <' & $S_FROMADDRESS & ">"
$OBJEMAIL.To=$S_TOADDRESS
Local $I_ERROR = 0
Local $I_ERROR_DESCIPTION = ""
If $S_CCADDRESS <> "" Then $OBJEMAIL.Cc = $S_CCADDRESS
If $S_BCCADDRESS <> "" Then $OBJEMAIL.Bcc = $S_BCCADDRESS
$OBJEMAIL.Subject = $S_SUBJECT
If StringInStr($AS_BODY, "<") And StringInStr($AS_BODY, ">") Then
  $OBJEMAIL.HTMLBody = $AS_BODY
Else
  $OBJEMAIL.Textbody = $AS_BODY & @CRLF
EndIf
If $S_ATTACHFILES <> "" Then
  Local $S_FILES2ATTACH = StringSplit($S_ATTACHFILES, ";")
  For $X = 1 To $S_FILES2ATTACH[0]
   $S_FILES2ATTACH[$X] = _PATHFULL($S_FILES2ATTACH[$X])
   ConsoleWrite("@@ Debug(62) : $S_Files2Attach = " & $S_FILES2ATTACH & @LF & ">Error code: " & @error & @LF)
   If FileExists($S_FILES2ATTACH[$X]) Then
    $OBJEMAIL.AddAttachment($S_FILES2ATTACH[$X])
   Else
    ConsoleWrite("!> File not found to attach: " & $S_FILES2ATTACH[$X] & @LF)
    SetError(1)
    Return 0
   EndIf
  Next
EndIf
;~  $OBJEMAIL.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$ObjEmail.Configuration.Fields.Item ( "http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
$ObjEmail.Configuration.Fields.Item ( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "smtp.gmail.com"
If Number($IPPORT) = 0 Then $IPPORT = 465
$ObjEmail.Configuration.Fields.Item ( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 465
If $S_USERNAME <> "" Then
  $OBJEMAIL.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  $OBJEMAIL.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $S_USERNAME
  $OBJEMAIL.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $S_PASSWORD
EndIf
If $SSL Then
  $OBJEMAIL.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
$OBJEMAIL.Configuration.Fields.Update
Switch $S_IMPORTANCE
  Case "High"
   $OBJEMAIL.Fields.Item("urn:schemas:mailheader:Importance") = "High"
  Case "Normal"
   $OBJEMAIL.Fields.Item("urn:schemas:mailheader:Importance") = "Normal"
  Case "Low"
   $OBJEMAIL.Fields.Item("urn:schemas:mailheader:Importance") = "Low"
EndSwitch
$OBJEMAIL.Fields.Update
$OBJEMAIL.Send
If @error Then
  SetError(2)
  Return $OMYRET[1]
EndIf
$OBJEMAIL = ""
EndFunc   ;==>_INETSMTPMAILCOM

Variables and function names written in capitals, what does this mean to you?

João Carlos.

matwachich · September 30, 2011

Decompilation!

Enforcer · October 3, 2011

Spamers and virusmakers will love your script... :\

Edited October 3, 2011 by Enforcer

UnSt0pp4Bl3 · December 31, 2011

I'm new to using pieces of scripts like this, Can someone tell me how to use this I have included the script into mine and can call the function no problem but when I run my script it instantly sends the mail from the included file.

How do I edit the script so it will only run when I call the function rather then on script start?

Thanks.

Jos · December 31, 2011

I'm new to using pieces of scripts like this, Can someone tell me how to use this I have included the script into mine and can call the function no problem but when I run my script it instantly sends the mail from the included file.
How do I edit the script so it will only run when I call the function rather then on script start?
Thanks.

Not sure what miracle you are expecting here, but could you post your script you have problems with since it's a little hard this way.

The posted example in the first is pretty self explanatory.

Jos

UnSt0pp4Bl3 · December 31, 2011

My script is same as yours but with my values it sends and I can call it to send but soon as I start the script it sends the email.

I want to be able to start the script then it waits until I call the function then sends the email, at the moment soon as I start the script it sends the email so everytime I start the script I will get a email then I will have recall it to send when I want it to send.

Basicly I don't want it to send the email when I start the script only when I call the function.

Thanks.

P.S. Good work on script I tried to find something like this a very long time ago when I started playing with autoit functions but default Inets never seem to work since free smtp servers without auth don't seem to exist.

Jos · December 31, 2011

Looks like you need to learn the language first here since this is easy once you understand basic scripting.

There are some tutorial available that can teach you that basic. just look in our Wiki for information.

Jos

UnSt0pp4Bl3 · December 31, 2011

I guess but I'm never one for doing that Iv worked out a dumb way of doing it anyway by simple putting a switch so no code in the function will activate until I change the parameter of the switch. I guess it will do but can you help me with one thing where is your function being called from since Iv never had a function that activates without calling but I don't see why your function gets called on start up.

Thanks.

1RV34 · February 28, 2012

Needed this UDF again so searched via Google, but I also came across this page http://www.go4expert.com/forums/showthread.php?t=23226

You on another forum or did they steal your code? o.o

Ontosy · March 25, 2012

Do it is difficult to add s-mime support?

EndFunc · April 4, 2012

It seems the CDO is out dated and doesn't work on 2008 natively. Apparently you need to use System.Net.Mail

I found a vbscript but don't quite know how to convert it to work with this script.

[i]<[/i][i]%@ Import Namespace="System.Net.Mail"%>[/i]
[i]<script language="VBScript" Debug="true" runat="server">
    sub Page_Load()
        Dim oMsg As New MailMessage()
        oMsg.From = New MailAddress("mailbox@yourdomain.com")
        oMsg.To.Add("recipient@theirdomain.com")
        oMsg.Subject = "This is an email"
        oMsg.Body = "<HTML><BODY><B>Hello World!</B></BODY></HTML>"
        Dim smtp As New SmtpClient("scriptmail.intermedia.net")
        smtp.Send(oMsg)
        oMsg = Nothing
    end sub
</script>[/i]

Anybody got any ideas or care to assist?

Revolter · April 7, 2012

what about a "from: no-reply@domain.com" feature? i want to make a newsletter for my website and i don't want to show my gmail account

Sign In

Smtp Mailer That Supports Html And Attachments.

Recommended Posts

squidol

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

Jos

Jos

water

Posted Images

water

squidol

water

SmOke_N

squidol

FreeBeing

SmOke_N

JScript

matwachich

Enforcer

UnSt0pp4Bl3

Jos

UnSt0pp4Bl3

Jos

UnSt0pp4Bl3

1RV34

Ontosy

EndFunc

Revolter

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta