TEAMMANAGER : MULTIPOSTAGE SMS+MAIL

Signaler
-
Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/1835-teammanager-multipostage-sms-mail

Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018

Attention : msmapi32.ocx plante parfois sous Windows 9x (il semble bien marcher sous Win2k), parfois il provoque l'erreur n° 30000 : "Erreur au chargement de la DLL MAPI". Même un faisant un package d'installation, avec VB6 Setup Wizard ou bien avec Visual Studio Installer 1.1, cela ne résout pas le problème : l'envoie de mail risque de ne pas marcher dans un Windows 98 vierge de tout logiciel spécifique.
Quand il n'y a pas de fichier joint au mail, on pourrait remplacer l'ocx par une API très simple, mais les sauts de lignes ne sont pas supportés et il faut valider chaque envoi :

' API pour la sub EnvoyerEMail
Private Declare Function ShellExecute& Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd&, ByVal lpOperation$, _
ByVal lpFile$, ByVal lpParameters$, ByVal lpDirectory$, _
ByVal nShowCmd&)

Public Sub EnvoyerEMail(sAdresse$, Optional sSujet$, _
Optional sContenu$, Optional sCC$, Optional sCCC$)

Dim sCmd$

' Créé la chaîne de commande avec les paramètres fournis
If Len(sSujet) Then sCmd = "&Subject=" & sSujet
' Pb : les sauts de ligne dans le contenu ne sont pas gérés !?
If Len(sContenu) Then sCmd = sCmd & "&Body=" & sContenu
' Ne marche pas avec Outlook Express :
'If Len(sFichierJoint) Then sCmd = sCmd & "&Attach='" & sFichierJoint & "'"
If Len(sCC) Then sCmd = sCmd & "&CC=" & sCC ' Copie carbonne
If Len(sCCC) Then sCmd = sCmd & "&BCC=" & sCCC

' Remplace le premier '&' (s'il existe) par un '?'
If Mid(sCmd, 1, 1) "&" Then Mid(sCmd, 1, 1) "?"

' Ajoute la commande 'mailto:' et l'adresse
sCmd = "mailto:" & sAdresse & sCmd

' Execute la commande par l'API
Const SW_SHOWNORMAL& = 1
Call ShellExecute(0, "open", sCmd, _
vbNullString, vbNullString, SW_SHOWNORMAL)

End Sub
Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018

Note : il est inutile de fermer outlook, il suffit de mettre à False les 2 options suivantes dans le ctrl MAPISession :
DownLoadMail = False
LogonUI = False
Et l'envoi de mail ne fait plus planter Outlook, on peut même préparer l'envoi de mail en hors-ligne sans problème.
Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018

Ya du nouveau ! allez voir www.vbfrance.com/listeauteur2.asp?Val=5457
ce sont les contributions de buisson.sf@caramail.com sur les sms
apparement, il a trouvé un nouveau serveur de sms gratuit :
Form2.WebBrowser1.Navigate "http://www.freetexto.com/ModuleSend.php3?from=" & Text1.Text & "&to=" & Text2.Text & "&msg=" & Text3.Text & ""
Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018

note : les SMS ne marchent plus depuis Octobre 2001, car le serveur web utilisé ne sert plus les SMS gratuitement, il faut en trouver un autre...
Afficher les 6 commentaires