XL 2010 macro envoie mail via Outlook Web OWA

mix770

XLDnaute Impliqué
Bonjour le Forum,
j'ai une macro qui fonctionne pour envoyer les mail via un bouton. Cela fonctionne sur mon poste mais les utilisateurs ont un Outllok Web installé (pas d'autre solution), y a t'il moyen de modifier ma macro si c'est possible pour activer le mail via la macro.

merci à vous

sub Envoi_Resultats_Mois()
Dim MailAd As String
Dim msg As String
Dim Subj As String
Dim URLto As String, CC As String
MailAd = Range("a1") & ";" & Range("a2") & ";" & Range("a3")
Subj = Range("a4")
URLto = "mailto:" & MailAd & "?subject=" & Subj & msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
 

Roland_M

XLDnaute Barbatruc
Bonjour,

et si tu essayais ceci !?

je n'ai jamais essayé avec Outlook !? (connexion TSL)
je sais qu'il y a "smtpusessl" mais je crois pas "smtpusetsl" !?
si quelqu'un passe par ici et peut m'informer ce serait sympa !
perso je n'ai pas trouvé d'info sur le net concernant "smtpusetsl"
je l'ai mis dans le code mais je doute !
en général on utilise cdo pour se passer d'outlook !
 

Pièces jointes

  • EnvoiMail_CdoMsg_Mix77.xlsm
    107.1 KB · Affichages: 36
Dernière édition:

Discussions similaires

  • Question
Microsoft 365 Macro VBA
Réponses
2
Affichages
390
Réponses
17
Affichages
1 K

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG