Send Ctrl + K key to outlook to checknames on a macro drafted email

[abhay_547]

I am trying to send Ctrl + k to the outlook for the email drafted by the below macro. can someone advise what's going wrong since it's not working. It it just displays the email drafted on screen but doesn't checknames entered as email addresses in to field in outlook.

Sub SetRecipients()Dim aOutlook As Object
Dim aEmail As Object
Dim rngeAddresses As Range, rngeCell As Range, strRecipients As String


Set aOutlook = CreateObject("Outlook.Application")
Set aEmail = aOutlook.CreateItem(0)
Set rngeAddresses = ActiveSheet.Range("A3:A13")
For Each rngeCell In rngeAddresses.Cells
strRecipients = strRecipients & ";" & rngeCell.Value
Next
aEmail.Importance = 2
aEmail.Subject = "Indicator activity warning ( TestMailSend )"
aEmail.Body = "Please log onto the MIS v2 system to check status (( Indicator List))"
aEmail.To = strRecipients
aEmail.Display
[B]aEmail.Sendkeys "^K"[/B]


End Sub

 

[paulxmw]

hi you could change Display to Send

 

[abhay_547]

hi you could change Display to Send

But I don't want to send the email, i just want to draft the email and check the names so that user can glance through before hitting send.

 

[abhay_547]

can someone help with the above code