Friends,

I am using the following programming in a macro. Working with MS
outlook the SendKeys "%s", True" found at the bottom of the "code" will
send the email. However, I want to use Eudora Pro rather than Outlook
and I want to save the e-mails rather then send them. To save these
"personalized" e-mails, I need to use Sendkeys "^s". The problem, this
is the same Sendkeys command that is used to save the current open
Excel spreadsheet . . . not what I want to do.

How can I focus control on the open Eudora software when attempting to
save the e-mail, then move control back again to Excel after the e-mail
save has taken place?

I have used the Sendkeysto command in WinBatch to select the open
software in which the command will take place, but do not see this
command in VB.

For Each cell In
Columns("e").Cells.SpecialCells(xlCellTypeConstant s)
If cell.Value Like "*@*" Then
Recipient = cell.Value
Subj = "Funds Sent Today"
Msg = "Dear " & cell.Offset(0, -4).Value & "%0A"
Msg = Msg & "%0A" & "This is just a quick e-mail to let you
know that today the following amount was sent to your bank account: " &
"%0A"
Msg = Msg & "%0A"
Msg = Msg & "$" & cell.Offset(0, -3).Value & "%0A"
Msg = Msg & "%0A" & "Bookkeeper"
HLink = "mailto:" & Recipient & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue("0:00:3"))
SendKeys "%s", True
End If
Next


Is there a way to change add lines around the SendKeys line??

(this line would focus control on the Eudora software)
SendKeys "%s", True
(this line would focus control back on the open Excel software)

Thanks,
Mike


---
Message posted from http://www.ExcelForum.com/