Envoi de mail ou fax par macro

Bonjour,

Pouvez-vous me donner une autre technique, pour macro, pour envoyer un mail ou un fax que celui de passer par Outlook

Actuellement j'utilise la macro suivante :

Fax
Dim DESTINATAIRE As String
DESTINATAIRE = Sheets("Adresses Variables").Range("E3").Value
Dim OL As Object
Dim OLmail As Object
Set OL = CreateObject("Outlook.Application")
Set OLmail = OL.CreateItem(0)
With OLmail
.To = DESTINATAIRE
.Subject = "Aucun car c'est un FAX"
.Body = "!!ATTENTION !! Vous devez avoir votre boîte mail ouverte. Et si dans la minute qui suit, vous n'avez pas reçu un mail confirmant l'envoi, assurez-vous que votre boîte mail OUTLOOK est ouverte et contrôlez le dossier Boîte d'envoi. Si le fichier s'y trouve, veuillez l'envoyer. "
.Attachments.Add ActiveWorkbook.Path & "\" & "FaxTémoin.PDF"
.Display

Comme mentionné dans Body, cela oblige à avoir notre programme OUTLOOK activé avant l'envoi. Et ce détail fait qu'il y a pour certain utilisateur, des mails ou fax non envoyé.
J'aimerai donc soit modifié ce détail ou alors changer de technique d'envoi.

A votre bon coeur, mes sauveurs. Vous avez déjà fait de miracle,alors un de plus ??
D'avance merci.