Visual Basic - Outlook.applicatión...

estoy haciendo un programa con el modo de Outlook application y no me fula, y no se pq, supongo que sea por wque no pongo el SMTP o mi dirección, pero no se como ponerlo, esto es lo que pongo: Dim out As Object 'crea una variable objeto
'asigna Outlook.Application a la variable objeto
Set out = CreateObject("Outlook.Application")

With out.CreateItem(olMailItem) 'empleo del objeto Outlook
'inserte nuevos destinatarios, uno por vez, utilizando el método Add
.Recipients.Add "[email protected]" 'Para: campo
.Recipients.Add "[email protected]" 'Para: campo
'para introducir usuarios en el campo CC:, especifique el tipo olCC
.Recipients.Add("[email protected]").Type = olCC
.Subject = "Mensaje de prueba" 'incluye el contenido del campo Asunto:
.Body = Text1.Text 'copia el mensaje del cuadro de texto
'inserta anexos, uno por vez, utilizando el método Add
.Attachments.Add "A:\smile.bmp"
'finalmente, copia el mensaje a la bandeja de salida de Outlook con Send
.Send
End With
End Sub

si alguine me podría ayudar, estaría muy agradecido.