Opening Email With TO: Address and Subject Line

[notoca]

Hi

On My Menu I want to have a a feedback section. Users can feedback 1) any bugs or problems that occur with the system and 2) Suggestions or changes to the data in some of the tables.

What I'd like is to do is set up two menu options (as mentioned above) where the user clicks on the menu button and it opens up the email program (Outlook Express), simple enough, however, I would like to populate the email with the To: address and the Subject Line data automatically.

Any ideas??

Thanks

 

[amigos]

Try this code, it opens MS Outlook after cmdSentEmailToTutor button is hit:

Private Sub cmdSentEmailToTutor_Click()

Dim oMSOutlook As Object
Dim oEmail As Object
Dim EmailAddress As String
Dim EmailSubject As String

Set oMSOutlook = CreateObject("Outlook.Application")
Set oEmail = oMSOutlook.CreateItem(olMailItem)

EmailAddress = Trim(txtTutorID.Value) ' Here input control with address
EmailSubject = Trim(txtStudentFirstname.Value & " " & txtStudentSurname.Value) ' here input control with subject


With oEmail
.Subject = EmailSubject
.Body = "Text in the email - may be taken from form as well...."
.To = EmailAddress
.Display
End With


Set oMSOutlook = Nothing
Set oEmail = Nothing

End Sub

aaa....I would forgot - you have to (in VBA view):
Tools/References/Microsoft Outlook XX Object Library (tick)


HTH

 

[notoca]

Hi

Thanks. That was good. Just one further question. Is it possible to put a carriage return and move to the next line. At the moment the cursor is sitting at the beginning of the text as specified in the .body statement.

The users would probably appreciate having the cursor on the next line which is blank where they can type in any info they desire.

Thanks

 

[amigos]

You would have to use .HTMLBody instead of .Body and use < br > which stands for Break Row in HTML syntax

please see:

http://www.mrexcel.com/board2/viewtopic.php?t=71092&highlight=

HTH

 

[CT Witter]

To use the regular body, use syntax like:

.Body="test" & vbcrlf & "more Text"

You can use vbcrlf or the Chr() function.

Your email will look like:

test
more Text

HTH,
CT

 

[amigos]

CT Witter: You are absolutely right!

I wanted to show to much (formating message etc.) I dont even know why. It is not Monday or Friday today

THX

 

[notoca]

Hi

The inserting of lines works, however, that pesky cursor still remains in the same position ie in the first space of the first line. I can't bring the cursor down to the next blank line.

If the users start typing they will be typing before the already existing text automatically inserted using the .ody statement. Is there a way to get the cursor onto the next blank line?

Thanks