email 1

[cherrielwy]

Hi,

I want to email just the id in a form after i fill in all the data in the form. How can i email that id automatically but not in attachment

 

[redapples]

Private Sub DIRECTEMAIL_DblClick(Cancel As Integer)
    Dim objOutlook As Object
    Dim objItem As Object
    Dim strMailTo  As String
    Dim strName
    Dim strtype
    Dim iIndid
    
    On Error GoTo starterror
    

    'Create a Microsoft Outlook object.
    Set objOutlook = CreateObject("Outlook.Application")

    'Create and open a new email for input.
    Set objItem = objOutlook.CreateItem(olMailItem)
    DIRECTEMAIL.SetFocus
    strMailTo = DIRECTEMAIL.Text
    If strMailTo <> &quot;&quot; Then 'Not IsNull(strMailTo) Or
    
    objItem.To = strMailTo

objItem.Body = IDcontrol

    objItem.Display
    End If

    'Quit Microsoft Outlook.
    Set objOutlook = Nothing


ExitHere:
    Exit Sub

starterror:
    Select Case Err.Number
        Case Else
            MsgBox "An error occured: " & Err.Number _
            & " " & Err.Description
    End Select
    
End Sub
[code]

refernce for Outlook needs to be added

 

[cherrielwy]

Hi,

thank you for ur coding,but i cannot make it work properly,how? Actually, i having a form(frmSRFDetail) that need data entry. After all the data were input in the form,i need to send just the NRF_ID for manager reference? Can i create a command button that when i click on it, the NRF_ID will send to my manager automatically?Thank You

 

[redapples]

When you say you cant get it to work, what stops it working?
What error do you get and what line causes it?
Did you include the reference for Outlook?
If you are using a different Email system than outlook you might need to use a different reference, the object browser should help you see what substititues to use in the code.

This code could be triggered on a button click event. The SendObject key word is worth looking at too.

 

[cherrielwy]

The Line"Set objItem = objOutlook.CreateItem(olMailItem)" got error and line "strMailTo = DIRECTEMAIL.Text" cannot find the command. So How can i correct the error? Thank You

 

[redapples]

Right, the line you quoted collects a value from a control on my form it is a field called DIRECTMAIL on your app it will be the control or record you have the email address stored in.

let me know if you get stuck elsewhere

 

[cherrielwy]

HI,


I still cannot email my NRF ID to my manager using a command button in my form.Can anybody help coz i need to type the NRF_ID by myself now and i just want to send this to two same person every times.can it work. Thank You

 

[marksnow]

If you want it to go to the same 2 ppl everytime you can hard code their email address's in.

see below in bold


Private Sub DIRECTEMAIL_DblClick(Cancel As Integer)
Dim objOutlook As Object
Dim objItem As Object
Dim strMailTo As String
Dim strName
Dim strtype
Dim iIndid

On Error GoTo starterror


'Create a Microsoft Outlook object.
Set objOutlook = CreateObject("Outlook.Application&quot

'Create and open a new email for input.
Set objItem = objOutlook.CreateItem(olMailItem)

strMailTo = "email@you.com, email2@your.com"
'You can remove the if statement aswell if you do it this way

objItem.To = strMailTo
objItem.Body = IDcontrol
objItem.Display

'Quit Microsoft Outlook.
Set objOutlook = Nothing


ExitHere:
Exit Sub

starterror:
Select Case Err.Number
Case Else
MsgBox "An error occured: " & Err.Number _
& " " & Err.Description
End Select

End Sub

 

[cherrielwy]

Hi marksnow ,

I copy the code that u give and change the IDcontrol to Forms![frmSRFDetail]![NRF_ID], i cannot run it.It prompt out a eeror msg "user-defined type not defined". How can i solve it? Thank You.


Cherrie

 

[danvlas]

olMailItem will only be resolved if you have a reference set to Outlook in Access.

I'd suggest changing it to:
Set objItem = objOutlook.CreateItem(0)

Another option would be to use SendObject (sespecially if you use some other email program instead of Outlook):

Docmd.SendObject ,,,Me![EmailAddressBox],,,Me![SubjectBox],me![BodyBox],False


Good luck




Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html

 

[marksnow]

Daniel

Can you copy and paste you code in here so we can have a look??

Cheers
Mark

 

[Tranzcoder]

How can this be done avoiding the Outlook security pop-up when sending email?