taille de fichier jpg (suite)

Le
Eric C
J'enchaîne sur un autre problème.
Mes fichiers jpg crées par CopyPicture (voir fil précédent) sont envoyés
automatiquement par mail via la sub suivante.

Seulement, quand je suis en itinérance, (ou en wifi au macDo,) cad non
conecté à mon FAI, je ne parviens pas à envoyer les messages

Une idée ??

Merci
Eric

> Sub SendMail(TheNom, TheEmail, TheEnvoi)
> Dim objMessage, Rcpt
> Rcpt = Chr(34) & TheNom & Chr(34) & "<" & TheEmail & ">"
> With CreateObject("CDO.Message")
> .From="mon adresse@aa.com"
> .To=Rcpt
> .Subject="sujet"
> .AddAttachment("mon cheminmon fichier.jpg")
> .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
> .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "MON FAI SMTP SERVER"
> .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
> .Configuration.Fields.Update
>
> On Error Resume Next
> .Send
> End With
>
> End sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #23181321
| .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "MON FAI SMTP SERVER"


Le serveur SMTP de ton ordi. et celui de McDo n'est pas le même!
C'est ce pour quoi la procédure ne fonctionne pas. D'ailleurs il n'est
pas dit si celui de McDo est configuré de toute manière.


MichD
--------------------------------------------
"Eric C" a écrit dans le message de groupe de discussion : 4d73cbf8$0$14254$

J'enchaîne sur un autre problème.
Mes fichiers jpg crées par CopyPicture (voir fil précédent) sont envoyés
automatiquement par mail via la sub suivante.

Seulement, quand je suis en itinérance, (ou en wifi au macDo,) cad non
conecté à mon FAI, je ne parviens pas à envoyer les messages...

Une idée ??

Merci
Eric

Sub SendMail(TheNom, TheEmail, TheEnvoi)
Dim objMessage, Rcpt
Rcpt = Chr(34) & TheNom & Chr(34) & "<" & TheEmail & ">"
With CreateObject("CDO.Message")
.From="mon "
.To=Rcpt
.Subject="sujet"
.AddAttachment("mon cheminmon fichier.jpg")
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "MON FAI SMTP SERVER"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update

On Error Resume Next
.Send
End With

End sub
Publicité
Poster une réponse
Anonyme