rolly2520
Messages postés6Date d'inscriptionvendredi 16 octobre 2009StatutMembreDernière intervention 1 septembre 2011
-
25 août 2011 à 16:49
rolly2520
Messages postés6Date d'inscriptionvendredi 16 octobre 2009StatutMembreDernière intervention 1 septembre 2011
-
1 sept. 2011 à 08:08
Bonjour,
J'aimerais envoyer un mail automatique contenant une image(logo d'entreprise) via du HTML.
L'image ne s'affiche pas ? prob chemin ? d'encodage ?
Merci par avance
Sub mail()
im = ""
SendViaLotus "sujet", "adresse@mail.fr", "<HTML> envoi d'une image
" & im & " </HTML>"
End Sub
Private Sub SendViaLotus(ByVal vSubject As String, ByVal vDest As Variant, ByVal vBody As String)
Dim oSess As Object
Set oSess = CreateObject("Notes.NotesSession")
Dim oDB As Object
Set oDB = oSess.GetDatabase("serveur", "database.nsf")
'Call oDB.OPENMAIL
Dim oDoc As Object
Set oDoc = oDB.CreateDocument(, , mémo)
'Sujet du mail
oDoc.Subject = vSubject
'Liste de destinataire
oDoc.SendTo = vDest
oSess.ConvertMime = False
Dim oMime As Object
Set oMime = oDoc.CreateMIMEEntity
Dim oStream As Object
Set oStream = oSess.CreateStream
'vBody contient le texte au format Html
Call oStream.WriteText(vBody)
Dim oChild As Object
Set oChild = oMime.CreateChildEntity
Call oChild.SetContentFromText(oStream, "text/html;charset=iso-8859-1", ENC_IDENTITY_BINARY)
Call oStream.Close
oSess.ConvertMime = True
'Créé le Draft
Call oDoc.Save(True, True)
'envoi le mail
oDoc.Send 0, recipient
End Sub
rolly2520
Messages postés6Date d'inscriptionvendredi 16 octobre 2009StatutMembreDernière intervention 1 septembre 2011 31 août 2011 à 13:59
Re :
J'ai essayé ça fait pareil.
Dans l'image est entouré de rouge avec une croix rouge.
L'activité de mon lotusnotes montre une activité de connexion vers le site via le port 80, mais n'arrive pas a acceder à la source "impossible d'établir la connexion avec l'hôte www.pixelvision.free.fr"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Il faudrait que t'essayes à un autre endroit que ton boulot, chez toi par exemple.
j'ai bien peur que leur firewall bloque tout téléchargement (même une image)
rolly2520
Messages postés6Date d'inscriptionvendredi 16 octobre 2009StatutMembreDernière intervention 1 septembre 2011 31 août 2011 à 16:31
Malheureusement je n'ai pas lotus chez moi.
Sinon, j'avais étudié le faits de passer par un modèle, le soucis est que j'ai des données variables a insérer dans le body.
Je ne trouve pas comment le modifier mais en gardant le contenu ???
Re:
Et il faut absolument passer par lotus?
Sinon j'avais fait un petit prog pour envoyer des mails automatiquement en Vb2010.
Ca fonctionne impeccable sauf que ça passait par le serveur de gmail (il faut créer une boite gmail, mais c'est pas génant)
rolly2520
Messages postés6Date d'inscriptionvendredi 16 octobre 2009StatutMembreDernière intervention 1 septembre 2011 1 sept. 2011 à 08:08
Non, impossible pour moi.
comme je te le disais je suis au travail et je n'ai pas les droits administrateur, je ne peux rien installer.
De plus il me faut une boite mail ayant certaine proprièté comme le fait que les clients ne puisse pas répondre.