Automatic send emails when some action happens on form.

[shod90]

Dear All,


Currently i am working on a small project which focus on listing people that have an internet connection through firewall.
I created a db that saves all people which have internet connection by adding them to a continuous form , I need after adding that user automatically send an email to manager tell him that there is a new user has been added .
I know how to send emails from form to outlook , But i need to more automate the process .

[shod90]

I found that code and it's running very well for me

Dim iMsg As Object
    Dim iConf As Object
    Dim strbody, myemail, mypassword As String
    Dim Flds As Variant
    myemail = "Email"
    mypassword = "Password"
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    iConf.Load -1
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = myemail
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mypassword
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
    End With
    With iMsg
        Set .Configuration = iConf
        .To = Me.tomail
        .From = """" & "SenderID" & """ <" & myemail & ">"
        .Subject = Me.sub
        .HTMLBody = "HTML code should be here "
        .Send
    End With

[Micron]

Dim strbody, myemail, mypassword As String

You got that from somewhere? It contains the classic error only setting the variable type of the last variable when declaring multiple variables on one line. Slight possibility that they intended strbody and myemail to be variants, but I doubt it. Only mypassword is a String; the rest are variants. Maybe

Dim strbodyAs String, myemailAs String, mypassword As String

is what it should be.