Visual Basic 6 - Problema Mandare Email

Scusate ho un problema a mandare le email dal mio programma.

Il codice che ho usato è questo e mi funziona bene solo che se non ho un profilo installato nn mi manda l'email e mi dà un messaggio di errore.

  Dim olApp As Outlook.Application
  Set olApp = CreateObject("Outlook.Application")

' Accesso.
  Dim olNs As Outlook.NameSpace
  Set olNs = olApp.GetNamespace("MAPI")
  olNs.Logon

' Cerare e aprire un nuovo contatto
  Dim olItem As Outlook.ContactItem
  Set olItem = olApp.CreateItem(olContactItem)

' Installazione delle informazioni del contatto
  With olItem
     .FullName = "James Smith"
     .CompanyName = "Microsoft"
     .Email1Address = "Destinatario"
  End With

' Salvo il contatto
  olItem.Save

' Mando il messaggio.
  Dim olMail As Outlook.MailItem
  Set olMail = olApp.CreateItem(olMailItem)

' Compilare e mandare il messaggio
  olMail.To = olItem.Email1Address
  olMail.Subject = "Qualcosa"
  olMail.Body = "Il messaggio"
  olMail.Attachments = "Allegato"
  olMail.Send

' Pulisco tutto...
  olNs.Logoff
  Set olNs = Nothing
  Set olMail = Nothing
  Set olAppt = Nothing
  Set olItem = Nothing
  Set olApp = Nothing

Mi dice che devo creare un profilo e oltretutto se Outloock non è ancora impostato mi chiede di farlo.
C'è un modo per impostare un profilo e nel caso non lo sia anche Outloock da codice?
Oppure un altro modo per mandare Email?

Grazie

Scusate mi sono dimenticato di cercare nel forum scusate

Grazie