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
407
Réponses
17
Affichages
1 K

Statistiques des forums

Discussions
312 104
Messages
2 085 334
Membres
102 864
dernier inscrit
abderrashmaen