Visual Basic :: Send Email Text Of Body Message From Listview

Send Email Text Of Body Message From Listview
hello,please help,how to send email text of body message from listview.

for example:
listview data:
user1 London 12/1/07
user2 canada 13/1/07
all the data here will send to email body message.

Code:
Private Sub cmdSendMail_Click()

With oSMTP
'connection
.Server = "10.0.0.250" 'local email server
'authentication
.AuthenticationType = AuthLogin
.UserName = "system@abc.com.my"
.Password = "system"
.MailFrom = "system@abc.com.my"
.SendTo = "system@abc.com.my"
.SendTo = "system@abc.com.my"
.MessageSubject = "Overtime confirm Alert "
.MessageText = "Listview.listitem "
.SendEmail

End With

End Sub

Thanks for help!

Does Anybody Know How To Send An Email Which Includes Message Body?
Hi.

I have an Excel file which I want to incorporate macros and VB to automatically format a report, and then email out. It's all working well apart from the fact that I can't seem to be able to include a message body in the email. At the moment, I have a 'Send' button, which uses the following code to save one particular sheet of the workbook (the sheet that contains the report) as a seperate Excel file and then email it.

Public Sub SendIBM()
Dim strDate As String
Sheets("IBM Options").Copy
strDate = Format(Date, "dd-mm-yy")
ActiveWorkbook.SaveAs "IBM Options Backlog " & strDate & ".xls"
ActiveWorkbook.SendMail Sheet1.txtEmailTo.Text, "IBM Options Backlog " & strDate
End Sub

On searching google I found this post

http://www.xtremevbtalk.com/showthread.php?t=90043

which seems to solve the problem for another user - but could anybody help me modify this code to work with my file? Please bear in mind that my VBA skills are pretty basic, and have only got the program working as well as it does with a lot of others people help, so if anybody can assist please can you talk in plain English with clear instructions for me?

Many thanks in advance,

Andy.

How Do I Send A URL In The Body Of An Email?
Hi, I am super new to this and I cannot find info on this in my searchs. Here is what I want to do..

I am creating an Outlook mail message object. I can set the recipient, subject, and body as text, but what I want to do is to send a hyperlink/url in the body of the messge.

Any Ideas?

Here is my code:

    Dim Body As String
    Dim myOlApp As Object
    Set myOlApp = CreateObject("Outlook.Application")

    Body = "This is a neat URL: Http://www.google.com"

    Set emailMsg = myOlApp.CreateItem(0)

    emailMsg.Subject = "Neat URL"
    emailMsg.Body = Body
    emailMsg.Recipients.Add "me@nowhere.com"

    emailMsg.Send

Maybe I should declare it differently? I do not know.... Any hlpe is greatly appreciated!

Thanks!

Email With Mapi: Body Message
I had writen a function to send an email from Vb using MAPI functions. The code is shown below:

MAPISession1.SignOn
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.MsgIndex = -1
.Compose
.RecipDisplayName = ccC
.MsgSubject = cS
.MsgNoteText = ""
.AttachmentName = Right(cDestino, 16)
.AttachmentPathName = cDestino
.Send
End With
MAPISession1.SignOff

My default email app is Incredimail.
It works fine, but always I get the same unexpected information in the body message:
--------------Boundary-00=_2Z56N0X1VA4000000000
Content-Type: Text/Plain
Content-Transfer-Encoding:

--------------Boundary-00=_2Z56N0X1VA4000000000--

What's wrong? How I can supress that message?

Thanks.

Send A Form In The Body Of Message
Hi,
I have a small VB program which sends some report (or a form) as an Attachment. Is there a way to send this report in the Body of the message, so when the user opens his MS Outlook this form ( possibly HTML form or some other report) will be seen right away.
Thanks,
Andy

Send Email: Contactitem.body HELP!
Outlook 2000, VB 6.

Want to add functionality:

Contact and/or Journal item, send [Notes] field as email to hardcoded address(s) by

1. select text, then with control button, send

and / or

2. Using control button, send all [Notes]

How to do it?

Thank you.

Send Email, As Body, With Chart?
Edit by Moderator:
Re: http://www.xtremevbtalk.com/showthread.php?t=236989

There wouldn't happen to be any new ideas or developments on this problem, would there? I'm hoping to do the same as above.

Edit:
Original thread is over 1 month old and therefore archive-only. Please create your own thread in future.

Thank you.

Syntax To Fill Body Of Email Message Through Vb6
HI, in my send routine for a email messaze sent through vb6 Im trying to write a line of code that says an advsier on your team has booked time off the details are as follows:" name = text2, date from = text3 and date until = text4,

I want the code to pick up the detaisl from text boxes on a form and send them as the body of the email.. the syntax im currently using is as follows..

Code:
.body = "An adviser on yout team has tried to book time off, the details are below:" and "Name" = text2.text and "Date from" = text3.text and "Date Until" = text4.text

It doesnt work so i wondered if anyone can advise on how this line of code needs to be written?
sean

Send Email From VB With The Image In Body And Not As Attachment
Hai,

In outlook, you can directly insert a picture in the body of the message. Is there a way by which we can insert pictures to the body of the message using VB code. could anyone help me out as soon as possible. I dont want the image to be sent as an attachment

Thanks & Regards,
K. Sripriya

Inserting Email Message Body Into SQL Server Table
Hi all,

I have an application that scan through an Outlook folder and writes to a SQL Server table with data on each email, i.e. sender, reply address, etc.

I want to write the message body to this table also but am having some problems.

What type of field should I use? Text?

Any ideas would be much appreciated.

How Can I Fill The Email Body Message With Records From A Query
Hi,

I have the following situation in MS Access:
I need to send a set of emails (currently I'm using SendObject) with info that will be selected by a query but I need that the info appears in the body of the email and not as an attachment of the mail.
Can anyone give me a helping hand with this.

Ah! One other thing in my tests when I send an email a window appears asking if I'm sure I want to send the mail. Well this is not a good thing because if I need to send 50 emails there will be needed 50 clicks to complete the operation. Is there any way I can turn this off and send the email automatically?

Thanks in advance.

Cheers,
Paulo

How To Send Access Table Content In The Message Body From VB
I have a simple access table that has columns of id and name. I am trying to send those information to users in the message body instead of as an attachment. I have been searching for a couple of days now. How can I do it?

Send Excel Worksheets In Body Of Email To Different Recipients
I'm what you could call a very entry-level vb user...I'm trying to set up a macro in excel to send each worksheet within one workbook, in the body of an email, to different email addresses. I found I can do manually going to File, Send to, Mail Recipient..., but can't figure out how to automate...help please?

Body Text In An Email
I am using the following code to paste an Excel worksheet from a workbook into an email (Groupwise NOT Outlook!) as an attachment using the following simple code:

WB.SendMail "xxxx@xxxxx.co.uk", "Email title"
WB.Close

The problem I am having is I can't get the macro to write any body text.

Can anyone help?

Email Body Text - Help!
Ok, firstly thanks to everyone who looks at this thread and posts, as I'm finding solving my current problem not only tricky, but extremely irritating.

Basically, I am tweaking the website for the company where I work and am trying to grab information from a form which potential customers fill out, then email those fields to our email address.

The form has been written, and works fine. I've also written the script to grab the info and email it, which runs fine...

...my problem lies with tweaking the body text to include headers which will help those who receive the emails ascertain to which field the information that has been mailed is taken (currently the form information is simply listed in the email, with a line break between each section. So, for example, the first line shows whatever the customer filled out in the 'Name' field on the form, but nothing to indicate to the email reader that that is the name field).

Incidentally, please disregard the strange field names. They are all correct, and do work, they are just thus named due to me being lazy and simply copy/pasting new fields in, rather than naming each one.

My script, which grabs from the form, is as follows. This script works perfectly, I just don't know how to add indications into the body text as to which bit of information belongs to which field.

<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>

<p>
<%

Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'create an Asp mail component.
Mail.FromName = Request.Form ("email")
Mail.FromAddress = Request.Form ("email3")
Mail.RemoteHost = "mrvnet.kundenserver.de" ' The mail server you have to use with Asp Mail
Mail.AddRecipient "US", "OUREMAIL@OURDOMAIN.com"
Mail.Subject = "Customer Request"
Mail.BodyText = Request.Form("email") & vbcrlf & Request.Form("email2") & vbcrlf & Request.Form("email4") & vbcrlf & Request.Form("email5") & vbcrlf & Request.Form("email6") & vbcrlf & Request.Form("email7") & vbcrlf & Request.Form("email72") & vbcrlf & Request.Form("email73") & vbcrlf & Request.Form("email732") & vbcrlf & Request.Form("email7322") & vbcrlf & Request.Form("email733") & vbcrlf & Request.Form("info")
if Mail.SendMail then
Response.Redirect("thankyou.asp")
else
Response.Write "Mail send failure. Error was " & Mail.Response
end if
Set Mail = Nothing

%>
</p>
<p> </p>
</body>

</html>

Outlook Message Body Selected Text
Hi,

Probably a neewbe question:

How do I get the selected text of a message body?

I'm trying to make a macro in Outlook 2002 that prefixes a
selected chunk of text. Eg.

From:

Quote:

Some body text
Another row of body text
One final row of body text

To:

Quote:

> Some body text
> Another row of body text
> One final row of body text

To get the whole body text is no problem:

Code:
messageBody = Me.ActiveInspector.CurrentItem.Body

But to get the selected portion of it is. I assume I need the body Text box item in the form or something.

Please help.

Save Email Body To A Text File
Hi,

I am hoping some guru can help me with a problem I have...

I am running an access database, what I need to do is loop through all the mails in a public folder skipping any mail with attachments, then save the mail body to a text file and then stored to a location on the harddrive.

Any help would be great. Thanks.

Sending Rtf, Doc, Text As Message Body In Outlook 2003 In Vb.net
Hi,

I am trying to send a document using vb.net and outlook and words, The type of file i would like to send are (rtf, doc, txt) as the message body in the outlook message. Any one with experince in this area the help will be surely appreciated.

I have added the code below i get some type of hresult type error when i run this.

Public Sub SendDocMsg(ByVal subjectp As String, ByVal pEmail As String, _
ByVal fileDirLocation As String)

recipient = pEmail
subject = subjectp

Dim oLApp As Object
Dim oItem As Object
Dim oDoc As Object

On Error GoTo errorHandler

'Create a new mailitem
' oOutlook = New Outlook.Application
oLApp = CreateObject("Outlook.Application")
oItem = oLApp.CreateItem(0)
oDoc = CreateObject("Word.Application")
oDoc.Visible = True
oDoc.Documents.Open(fileDirLocation)

With oItem

'Set the recipient for the new email
.To = mRecipient

'Set the recipient for a copy
'.CC = "recipient2@mail.com"

'Set the subject
.Subject = mSubject

'The content of the document is used as the body for the email
.Body = oDoc.ActiveDocument.Content

.Send()
End With

errorHandler:
MsgBox(Err.Number & " " & Err.Description)
'Clean up
oItem = Nothing
oLApp = Nothing
oDoc = Nothing

End Sub ' SendMsg

Mapi And Rich Format Text In Message Body ???
Hello

I am trying to send email using MAPI controls and i want the text of Body to be in Rich Format.

I tried this with RichTextBox but no result.

does anyone have any idea ???

thanks

MAPI - Format Text In Body Of E-Mail Message
I am using MAPI to send e-mail automatically from and Access database. I have a table of standard messages. The field in the table is called "EMailMessage" and its type is Memo.
When creating the message in the table I format it, so for example it will look like this:
"Dear Sir
Thank you for you help
Kind regards
TimP"

When creating the message I use the code:
MapiMessages.MsgNoteText = EMailMessage 'where EMailMessage is the message retreived from the database.

However the text comes out like this:
"Dear Sir Thank you for you help Kind regards TimP"

how can I keep its original format?

Send Email With Cdo Gives Error Message.
Runtime error : -2147220975(80040211)
error code: 0x80040217

I Got A Message Every Time I Want To Send An Email With Outlook
hi,

I am using outlook object in my code to send an email. but every time it comes to Send command. it gives this message:

A program is trying to automatically send email on your behalf. Do you want to allow this? if this is unexpected it maybe a virus and you should choose no

then I choose yes and then the message is send. how can I remove this message so every time the code wants to send a mail does not have to Ok this message.

thanks for any help in advance.
roseta.

How To DISABLE/avoid The Outlook Warning Message When I Try To Send Email Via VB?
I wrote a function to send email with attachment. that codes work fines. But there is a annoying problem. everytime i try to run the function to send out email, the outlook popup a windows " A program is tryin to access email address you have stored in out. Do you want to allow this" AND another windows " A program is trying to access email address you have stored in outlook"
How do I resolve this problem? Thanks for help !

the following is the codes
-------------

Dim mFolder As outlook.MAPIFolder
    Dim mItem As outlook.MailItem
    Dim pRecip As Recipient
    Dim pAttachments As Attachments
    Dim mailHeader As String
    Dim mailBody As String
    Dim mailFooter As String
    Dim mailAddress As String


    rptDanAlert.Show
    rptDanAlert.ExportReport rptKeyUnicodeHTML_UTF8, "c:gsn
eportalert", True, False, rptRangeAllPages

    mailAddress = "me@yahoo.com"
    mailHeader = "The enclosed attachment is Danger Level Alert Report. " & vbCrLf
    'to send the report using email
    Set mOutlookApp = CreateObject("outlook.Application")
    Set mItem = mOutlookApp.CreateItem(olMailItem)
    Set pRecip = mItem.Recipients.Add(mailAddress)
    Set pAttachments = mItem.Attachments
    mItem.Subject = " Stock Level Alert Email"
    pAttachments.Add "C:GSN
eportalert.htm", olByValue
    mItem.Body = mItem.Body & mailHeader
    mItem.Send

Send The Contents Of A Text Box (via Email) To An Email Address
I want to send the words of text1 to my email address using 1 command button.
Please explain step by step how to do this. As i have no idea.

Thanks

Urg?? How To Extract Actual Message Body From Multi-part Message In MIME Format?????
hi,

iam doing an pop3 email application.

iam able to download the email messages,delete the messages from the server permanently.

iam able to read the whole mail into a rtf text box(actual idea is to display the body part).

the content what i displayed in the rtf text box is shown below..

please go through this as it will help you to suggest me answer
****************************************************
Return-Path: <varma@esparkinfotech.com>
Received: from varma (varma.esparkinfotech.com [192.168.1.131])
by esparkinfotech.com (8.11.2/8.11.2) with SMTP id gAL9YTC20986
for <varma@esparkinfotech.com>; Thu, 21 Nov 2002 15:04:29 +0530
Message-ID: <003001c29140$0c7a47b0$8301a8c0@varma>
From: "vijay varma" <varma@esparkinfotech.com>
To: "vijay varma" <varma@esparkinfotech.com>
Subject: KJKL
Date: Thu, 21 Nov 2002 14:56:19 +0530
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_002D_01C2916E.260950D0"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Status: O

This is a multi-part message in MIME format.

------=_NextPart_000_002D_01C2916E.260950D0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

LKJL

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.422 / Virus Database: 237 - Release Date: 11/20/2002

------=_NextPart_000_002D_01C2916E.260950D0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2600.0" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>LKJL</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2><BR>---<BR>Outgoing mail is certified =
Virus=20
Free.<BR>Checked by AVG anti-virus system (<A=20
href=3D"http://www.grisoft.com">http://www.grisoft.com</A>).<BR>Version: =
6.0.422 /=20
Virus Database: 237 - Release Date: =
11/20/2002</FONT></DIV></BODY></HTML>

------=_NextPart_000_002D_01C2916E.260950D0--
****************************************************

but i want to parse and get the actual body from the mail message.

is there any way to parse and get the actual content???

please suggest me any examples.....
regards
varma

Add Senders Email In Body Of Email - Emailing With Shellexecute
Hi,
I am loking for a little help. I would like to include the senders email address in an email's body which I generate using shellexecute but after much looking can not find if or where I can get this string from? Any ideas would be much appreciated.

I am using:

VBCODE[
strcommand = "mailto:user@domain.com?subject=Put your subject here&body=message here including senders email address."
Call ShellExecute(0&, vbNullString, strCommand, vbNullString, vbNullString, 5)
]

Send A Text Message To TV Set ?
Hi,

I developed a home automation application that does all sorts of neat things. However, it would be Really kewl if my app can notify me by sending a Text Message that will appear on my TV screen kinda like a closed caption or transparent message does.

I have several pc's that have ATI AIW 128 pro cards that are capable of sending the computer screen to the tv. But how would i be able to send a message to the tv.

It would be neat if my app could display something like 'The light in the upstairs bedroom is now On' or 'Aunt Peggy is calling on line 1' on the tv while i'm watching my favorite tv show.

Also, it would be neet to send an audible tone to the tv also.

Does anybody have any ideas on where i could start with this ?

I'm not sure if DirectShow will be the solution, but I'm looking into it. I never really used it before.

I also contacted the ATI developer support, but so far, I got no response.

Thanx for any help ...

Manipulate Email Message Text
Hi All,

I am looking for a tutorial or example of how to look for a particular email in a folder not necessarily inbox and pull info
from that email to be inserted into a table.

If anyone has any ideas, any help would be most appreciated.

Thanking you in advance.

Send A Text Message To A Form?
Help me this problem:
I have an .exe file (A.exe) and a dll file (B.dll)
A.exe ref to B.dll and call its functions.

At sometime, functions in B.dll need to update information to the form in A.exe.
Information is displayed in a list box control on a form of A.exe.

What I need is to find out the possibility of send a text message (by API function ?) to the list box on the form from a function in B.dll (the function know the HWnd of the list box)
Thanks in advance

P/s: In this case use RaiseEvent is not a suitable

How To Send Text To A Window Message
i want to be able to send text to hwnd. how do i do this

Using Outlook To Text Message My Email To My Phone
If you can answer this I will consider you the master. Ever since yesterday morning I have been working day and night to find a program that will text message my email from outlook to my cell phone which is a t226 on ATT. Sending text messages is free to send online from http://www.mymmode.com/messagecenter/. Does anyone know of a way of taking my email text and putting it in there or a program that does this. Thanks

Bold Text In Outlook Email Message
I'm using:

Dim olMail As Outlook.MailItem

To set up an email message for formatting.

When I get to formatting the body:

olMail.Body = "Please send your reply to me via e-mail by close of business"

The question is: How do I "bold" that line of the body message?

Do I have to write a string function to do this? Is that a simple thing or not?

Thanks in advance.

Send Email With Graphics And Text
Hello Everyone,

Can anyone tell me how can i send a email to multiple recipients which can contain text and graphics. For example, i can change text colour and bold settings and insert picture and send email. The email should open and should not appear as an attachment. In other words the way we compose a new message using outlook express and send.

So if anyone knows how to send email using text & pictures that will open directly as message rather than appearing as attachment.

Thanks,
Greatchap

Paste From Text And Send Email
Hello all,

i have managed to write to a text file from a textbox the text file is made from several textboxes and the saved as demo.txt like this:

Private Sub Command1_Click()
Open "H:demo.txt" For Append As 1
Print #1, Text1.Text
Close 1
Open "H:demo.txt" For Append As 2
Print #2, Text2.Text
Close 2
Open "H:demo.txt" For Append As 3
Print #3, Text3.Text
Close 3
Open "H:demo.txt" For Append As 4
Print #4, Text4.Text
Close 4
Open "H:demo.txt" For Append As 5
Print #5, Text5.Text
Close 5
Open "H:demo.txt" For Append As 6
Print #6, Text6.Text
Close 6
Open "H:demo.txt" For Append As 7
Print #7, ""
Close 7
and so on.

what i would have to figure out is how the text file gets renamed from the Text1.Text and then all that is printed gets pasted into an email and send to a fixed email adress. maybe the Text1.Text could also be the subject of the email.
problem is .. i don't know what email program the user will have.

i'm trying to make this because it will save me and some friends from work the hassle of sending a fax to the company we work for. as u already would have guessed i'm a total newbie to programming so any help would be great.

thanks in advance.

Send The Text Of A Textbox To Email
hi everyone
is it possible to send all the data in a textbox (writing) to my email account every time i press send?
also is there a way to import a specific line fron a .txt file, but not the whole document??
help greatly appreciate... especially the email question!
thanks

Send Text File To Email
hi
with the form i created on save i send the infor from the text boxes to a text file ....i want to create a button called post so when clicked it retrieves the data from the text file and puts into your emailer ready to be sent.. does any one know the code for this please?

Send Email With A Specific Text
Is it possible to let a visual basic send email with say a text from a text box and send it. Without having to press SEND or do anything, the program should do everything herself

thanks VidarJul

Pull Text From Web And Send Via Email.
I have searched and searched because I know i have seen something like this before.

I need to pull text from a few different websites and put it all in an email.

The sites are as follows:
http://www.tolitz.com/tagalog/
http://www.transparent.com/wotd/today/italian_wotd.htm
http://www.transparent.com/wotd/today/spanish_wotd.htm http://www.transparent.com/wotd/today/french_wotd.htm
http://www.transparent.com/wotd/today/german_wotd.htm
http://dictionary.reference.com/wordoftheday/

I want to get the word of the day from these sites along with the definitions of course and put it all in an email.
If some one could show me with one of the sites I could probably figure the rest out.

Mattwho?

Email In VB??? Adding Message Text And Attaching Files
Does anyone know how to attach a file and set the message text through the ShellExecute command. This is the Code I have so far:

Code:
Success = ShellExecute(0&, vbNullString, _
"mailto:me@myplace.com?subject=Subject Goes Here", _
vbNullString, "C:", SW_SHOWNORMAL)

This command works fine, but I cant figure out what
parameters will set the message text and attachmet files.

Also is there a way to automate this so the user does not
see the default email client, it just sends the message out

Thanks in advance

How Do You Send The Text From A Textbox To An Email Adress?
Hi,

I want to send the text (which has been typed) in a text box to an email adress when you click on a command button.
I have a vb script for that, but because it is "shareware", a pop-up window appears with the authors name in it. So you first have to click ok to continue. And that's ignoring.

Please, respond when you have a vb script or a tip that helpes me out!

Thanks, Majestic.

{Not Yet RESOLVED} Send Text File Via Email
hi,

how can i do this? all data in my table convert to txtfile and detect system if there's internet connection if there's internet then automatically opened the yahoo mail and ready to attach the text file created from my database table.

thanks

sibasib

Edited by - sibasib on 10/25/2004 12:36:56 AM

Drag And Drop Outlook Email Message Into Vb6 Text Box Form
Hi,
I want to drag and drop outlook email message into vb6 text box form.
Is there any sample code?
Thank you.
Rgds,
Gilroy.

Send Text To Message (chat) Window Of Yahoo Messenger 8.1
hi
i use below code to send text to message (chat) window of yahoo messenger 8.1 but it dose not send any thing
i use it to older version of Yahoo messenger (i think 7.5) and it send text very well

Code:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Const WM_SETTEXT = &HC
Private Const WM_KEYDOWN = &H100
Private Const VK_RETURN = &HD

Private Sub Command1_Click()
Dim wnd, meswnd As Long
wnd = FindWindow("IMClass", vbNullString)
meswnd = FindWindowEx(wnd, 0, "YIMInputWindow", vbNullString)
SendMessageByString meswnd, WM_SETTEXT, 0, Text2.Text
butwnd = FindWindowEx(wnd, 0, "Button", vbNullString)
PostMessage meswnd, WM_KEYDOWN, VK_RETURN, 0
End Sub

can everyone resolve it ?

Help????how To Get The Message Body????????
hi,
thank you very much.
atlast i got the problem solved.now the messages are deleting.
once again thanks a lot.

now i had one more problem.

iam listing all the messages from the mail server into a list view.
now the user selects the message and click on display.

then a dialog box will open and display in this format

from:xxx@xx.com
date:Wed,6 Nov 2002 23:01:30 -0800 (PST)
To:yyy@yy.com
subject :from xx

now there will be a rich text box,in that rich text box the body will be displayed

******************************************
The message starts here
******************************************
This is a multipart mime message
--Next_1036652917---0-203.199.83.32-4098
Content-type: text/plain;
format=flowed
Content-Disposition: inline

hi,
this is a test mail from rediff sent by varma

please see that there is an attachment of cobol presentation

regards
varma
--Next_1036652917---0-203.199.83.32-4098
Content-type: application/vnd.ms-powerpoint
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="Cobol_Presentation.ppt"

0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAA
AAAAEAAAEwAAAAEAAAD+////AAAAAAAAAAD/////////////////////////////////////
ygIwdQAAywLQEhMAzAIw7ez/zQJAVIkAzgIAgAAAzwIAgP//0AIAAHaW1lcyBOZXcgUm9tYW4A
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAA

--Next_1036652917---0-203.199.83.32-4098--
******************************************
The message ends here
******************************************

the above message is the body part.

how to get only the required body text,by removing all the messages below

--Next_1036652917---0-203.199.83.32-4098
Content-type: application/vnd.ms-powerpoint
Content-Transfer-Encoding: base64
Content-Disposition: inline;

and i got a powerpoint attachment file.but iam unable to get the attachment.instead of that ima getting junk charecters.

please tell me how to get only the body text,means is there any way to parse the message.

please also tell how to get the attachment.

regards
varma

Email Body
On my form I have 2 Labels and 4 textboxes, I need to add the contents of the labels (Caption) and the text in the textboxes into my email body when I click a button.

Here's my code so far:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
ShellExecute Me.hwnd, vbNullString, "mailto:me@here.com;him@there.com?subject=Test&body=body", vbNull, vbNull, SW_SHOWNORMAL

End Sub

What code do I put after &body= or do I have the wrong code all together?

I'm running VB5