TEAMMANAGER : MULTIPOSTAGE SMS+MAIL
pekeo -=the ex of pekinio=-
-
5 sept. 2001 à 15:08
cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018 - 14 juil. 2002 à 12:26
cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018 - 14 juil. 2002 à 12:26
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
https://codes-sources.commentcamarche.net/source/1835-teammanager-multipostage-sms-mail
14 juil. 2002 à 12:26
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
26 avril 2002 à 08:50
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.
3 avril 2002 à 13:45
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 & ""
16 févr. 2002 à 08:43
6 sept. 2001 à 10:09
Bonne nouvelle : les SMS marchent !
en tout cas au moins 1, car pour plusieurs SMS consécutifs, je ne sais pas si la pause de 2 secondes qui figurait dans le code src original est suffisant. Il faudrait peut être plutôt récupérer un évènement Web.NavigateComplete après l'appel de Web.Navigate. Au fait, je n'ai pas de téléphone mobile, alors si quelqu'un veut faire le test... il faut parfois attendre une journée pour recevoir le SMS !
Mauvaise nouvelle : les destinataires des SMS risquent de recevoir ... de la pub !!!
bah ! si on regarde le bon coté des choses, pour que le service soit pérenne et donc qu'il reste gratuit pour nous, il faut bien qu'il y en ait qui paye !
Pour information :
MSDN : "you can use the Busy property of the WebBrowser control to wait until the browser has finished loading the document. Also, you can use the NavigateComplete event of the WebBrowser control to signal that the document has finished loading."
Donc :
Web1.Navigate sServeurSMS & "?num=" & sMobile & "&mess=" & Me!TxtMessage
Do
DoEvents
Loop While Web1.Busy
J'ai essayé, mais il reste toujours occupé à partir du second SMS, il faut peut être réinitialiser quelque chose. Autre solution :
bNavigateComplete = False ' Variable globale au formulaire
Web1.Navigate sServeurSMS & "?num=" & sMobile & "&mess=" & Me!TxtMessage
Do
DoEvents
Loop While Not bNavigateComplete
Private Sub Web1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
bNavigateComplete = True
End Sub
Même résultat ! ça serait bien si ça marchait quand même !
5 sept. 2001 à 15:08