Automated Email using Outlook

[imran688]

Hi fellows,


There is some text in a text box named [Message] on a form. What i want to do is to email that text to the email address in text box [EmailAddress] on the same form. What should be the VB code for the Button [Send].

Thanks in advance. These forums are very helpful for a new and even experienced users.

Imran

[June7]

Review http://forums.aspfree.com/microsoft-...ro-447084.html

[redbull]

I have posted this code 3 times in the last 2 days... I hope it helps..

Sub CreateHTMLMail() 
''''Creates a new e-mail item and modifies its properties'
Dim olApp As Outlook.Application 
Dim objMail As Outlook.MailItem

Set olApp = Outlook.Application 'Create e-mail item' 
Set objMail = olApp.CreateItem(olMailItem)

''' Assigning things in the outlook mail message. 
With objMail
.Subject = Forms("Formname").txtboxname 
.Body = Forms("Formname").txtboxname 
.To = Forms("Formname").txtboxname 
.Display 
.ReadReceiptRequested = True 'IF you want to enforce a read receipt, keep this part, if not just comment or remove it End With End Sub

[imran688]

I tried that and an error popped up. Here is my code

Private Sub Command622_Click()


Sub CreateHTMLMail()


Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem


Set olApp = Outlook.Application
Set objMail = olApp.CreatItem(olMailItem)


With objMail
.Subject = Forms("Detail").EmailSubject
.Body = Forms("Detail").EmailMessage
.To = Forms("Detail").EmailTo
.Display


End Sub


When i removed the first line then after button click nothing happens. Do i have to keep outlook open? and what outlook profile this code will use to send email?

[redbull]

I'll be in the office in a couple hours. I will double check my code... OHHH add the Microsoft outlook reference library as well... but I will double check when I'm in the office.

[imran688]

I did not added Microsoft outlook reference library because i have no idea how to add that. Please help

[redbull]

I did not added Microsoft outlook reference library because i have no idea how to add that. Please help

No problems! Alright
go into the VBA window (alt+f11)
Click on Tools then References
Search for
Microsoft Outlook XXX object library

My outlook library is 11.0 but yours might be different.
Let me know if that works!!!

[imran688]

Is my code right?

Private Sub Command638_Click()


End Sub
Sub CreateHTMLMail()


Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem


Set olApp = Outlook.Application
Set objMail = olApp.CreatItem(olMailItem)


With objMail
.Subject = Forms("Detail").EmailSubject
.Body = Forms("Detail").EmailMessage
.To = Forms("Detail").EmailTo
.Display


End Sub

[redbull]

So when you click the button, nothing is happening at this point correct??

Try this..

Private Sub Command638_Click()

Call CreateHTMLMail

End Sub


Sub CreateHTMLMail()


Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem


Set olApp = Outlook.Application
Set objMail = olApp.CreatItem(olMailItem)


With objMail
.Subject = Forms("Detail").EmailSubject
.Body = Forms("Detail").EmailMessage
.To = Forms("Detail").EmailTo
.Display
End Sub

[June7]

Looks good. You can test it. Since the code is set to just display the Outlook email, no harm will be done.

Use debug techniques explained in link at bottom of my post.

[redbull]

June, quick question.. not on topic at all.. but I don't want to make an entire thread about it...
I am trying to Flip visibility on a label box. The code is in a module and NOT behind the form...

Is this something that can be done? I have tried...

Forms("frmmainnew").lblVerfied.visable = True

But its not changing the property... I've done this behind the form code in the past without issue.

[imran688]

Still this error "Compile Error: Expected end with"

[June7]

Imran688:
Every 'With' needs an 'End With', in this case just above the 'End Sub'


Redbull:

Should be possible. You show the word 'Visible' misspelled but that should produce a compile error. Is 'lblVerfied' correct spelling or should it be 'lblVerified'?

Try alternate syntax:

Forms!frmmainnew.lblVerfied.Visible = True

or

Form_frmmainnew.lblVerfied.Visible = True

[imran688]

Its working. Awesome.
Thanks a lot

[imran688]

oh. Its this error now