MAXIMIZAR JANELA OUTLOOK

RAYA 23/07/2012 21:03:56
#406482

Alguem poderia ajudar-me. Eu preciso maximizar a Janela do Outlook em primiero plano para podeer enviar um email do meu programa, estando a Janela minimizada a função AppActivate([Ô]Outlook[Ô]) nao funciona.

Desculpem, mas eu sou um zero a esquerda em programação. Obrigado.


Private Sub BtnSend_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSend.Click


On Error Resume Next
Dim Outlook : Outlook = GetObject(, [Ô]Outlook.Application[Ô])

If Err.Number = 0 Then
[ô] Outlook is running
AppActivate([Ô]Outlook[Ô])

[ô]SendKeys.Send([Ô]%{F4}[Ô])

Out.Text = 1
Else
[ô] Outlook is not running
Err.Clear()
System.Diagnostics.Process.Start([Ô]Outlook[Ô])
Out.Text = 2
End If

End Sub