FUN?ÃO PARA MANDAR EMAIL

MOACIRPFAU 11/01/2005 13:09:25
#59996

Tenho a seguinte função para envio de email, no qual ela abre o email padrão e preenche os campos com os dados que são passados.

Public Sub SendMail(Optional Address As String, _
Optional Subject As String, Optional Body As String, _
Optional CC As String, Optional BCC As String)

Dim strCommand As String

'constroi a string do email
If Len(Subject) Then strCommand = "&Subject=" & Subject
If Len(Body) Then strCommand = strCommand & "&Body=" & Body
If Len(CC) Then strCommand = strCommand & "&CC=" & CC
If Len(BCC) Then strCommand = strCommand & "&BCC=" & BCC

'substitui o primeiro &
'com interrogacao
If Len(strCommand) Then
Mid(strCommand, 1, 1) = "?"
End If

'Inclui o comando mailto: e o endereço de e-mail
strCommand = "mailto:" & Address & strCommand

'executa o comando via API
Call ShellExecute(Me.hwnd, "open", strCommand, vbNullString, vbNullString, SW_SHOWNORMAL)

End Sub

Minha dúvida é a seguinte. No Optional Body As String o qual é a mensagem propriamente dita, como posso fazer para pular linhas na mensagem pois se escrevo,ex: 1º linha: "OLà !!! e na 2º linha: "BOA TARDE !!! em uma variavel e vou passar os valores, aparece no email tudo em uma só linha.

Obrigado