Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

taille de fichier jpg (suite)

1 réponse
Avatar
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 chemin\mon 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

1 réponse

Avatar
michdenis
| .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