code VBA pour envoyer un fichier

[p@cm@n]

Bonjours à toutes et à tous

pour ceux que cela pourrait intéréssé voici la procédure VBA que j'utilise pour envoyer un fichier Excel en PJ via Outlook.

je n'ai malgre tout pas réussi à éviter l'affichage de deux fenêtres outlook m'avertissant que quequ'un essaye d'envoyer un message en mon nom et que cela pourrait être un virus.

si quelqu'un veut apporter une correction à cette procédure no problème.

je tien à préciser que ce code n'est pas de moi, je l'ai juste récupèré d'un livre sur le VBA .


salutations et bonne prog à tous les membres.

p@cm@n

 

[p@cm@n]

oh excusez moi j'ai oublié le code, donc le voici

Sub Envoyer_fichier()


' Lance une session Microsoft Outlook
Set appOutlook = New Outlook.Application
' Crée un nouveau message
Set message = appOutlook.CreateItem(olMailItem)

With message
' Titre, Texte, Destinataires, Pièces jointes du message
.Subject = 'sujet du message'
.Body = 'texte du message.' _
& Chr(13) & 'Sincères salutations,' _
& Chr(13) & 'Le responsable commercial'

.BodyFormat = olformatHTML
.Recipients.Add ('destinataire du message')
.Attachments.Add ThisWorkbook.Path & '\\' & ThisWorkbook.Name
.Send
End With

' Quitte l'application Outlook
appOutlook.Quit

' Réinitialise l'objet
Set appOutlook = Nothing
End Sub

 

[MichelXld]

bonjour P@cm@n

ci joint quelques exemples qui utilisent une autre methode (CDO) et permettent d'envoyer un mail sans afficher le message d'alerte

Lien supprimé

Lien supprimé

Lien supprimé


bon week end
MichelXld