Abrir mensagem de Outlook com dados de Formulário

[fcarocinho]

Se houver alguém que me possa ajudar.

O que se pretende é abrir uma mensagem de outlook preenchida com os dados de um formulário:

Usando assim abre a mensagem em branco

Private Sub ButtEnviaEmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtEnviaEmail.Click
	On Error GoTo erro
	Dim olapp As Object
	Dim oitem As Object
	olapp = CreateObject("Outlook.Application")
	oitem = olapp.CreateItem(0)
	With oitem
		.Subject = "Atendimento: " & numpessoa.Text & " em: " & Now()
		.Body = "Pessoa: " & numpessoa.Text & " - " & NomeFicha_TextB.Text & vbCrLf & "Tipo de Atendimento:  " & TipoAtend_CBox.SelectedText & vbCrLf & "Assunto(s): " & vbCrLf & "obs." & Obs_Text.Text
		.To = Process.Start("mailto:", "[email="mail@qq.pt"]mail@qq.pt[/email]")
		.send()
	End With
	olapp = Nothing
	oitem = Nothing
	Exit Sub
erro:
	MsgBox("O outlook não foi encontrado ou o serviço MAPI não foi iniciado", vbCritical, "Erro")
End Sub

Quando substituo to:=fcarocinho@qq.pt envia com tudo preenchido sem abriri o Outlook. que não é o que se pretende, quero escolher as pessoas a quem enviar a mensagem.

Até já

Fcarocinho.

[jpaulino]

Mas se o Outlook está definido por defeito, então basta algo como:

Process.Start(" mailto:escolher contactos?subject=assunto&Body=mensagem ")

Ou então não coloques o método .Send() e ele não envia. Para mostrar o email podes tentar usar no final olapp.visible = true

[fcarocinho]

Mas se o Outlook está definido por defeito, então basta algo como:

Process.Start(" mailto:escolher contactos?subject=assunto&Body=mensagem ")

Ou então não coloques o método .Send() e ele não envia. Para mostrar o email podes tentar usar no final olapp.visible = true

Não resolveu...

[jpaulino]

Não resolveu...

O que não resolveu? O que tentaste? Que erros tiveste?

Isso é MUITO vago ...