begin process at 2012 02 17 04:42:41
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Visual Basic 6

 > 

Algorithme

 > 

Divers

 > 

Email


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Email

mercredi 27 août 2008 à 15:53:37 | Email

4u4me4us

Membre Club
Bonjour,

Je solicite votre aide pour la raion suivante. Je voudrais envoyer des e-mail's avec un image insérée + une signature (image aussi)

pour le moment j'ai le code suivant qui me permet d'insert des images (Le resultat et un peut bizard)



Set config = New CDO.Configuration
With config.Fields
  If vopt_pass = "" Then
   .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = CDO.cdoSendUsingPort
  Else
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  End If
 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = vobl_server_smtp
 If vopt_pass = "" Then
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
 Else
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
   .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = vopt_UserName
   .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = vopt_pass
 End If
 .Update
End With
Set EMAIL = New CDO.Message
With EMAIL
    Set .Configuration = config
    .From = vobl_De
    .To = vobl_A
    .Subject = vopt_sujet
       
    .HTMLBody = vopt_text & "<IMG src=""LOGO"">"
    .AddRelatedBodyPart vobl_PathComplet, "LOGO", cdoRefTypeLocation
   
    vopt_PathJoin.Path = vopt_PathFileJoint
    vopt_PathJoin.Refresh
    v_index = vopt_PathJoin.ListCount
    For v_dep = 0 To v_index - 1
    vopt_PathJoin.ListIndex = v_dep
    v_FilSen = vopt_PathJoin.Path & "\" & vopt_PathJoin.filename
    If Dir(v_FilSen) <> vbNullString Then
     v_NbPièce = v_NbPièce + 1
     .AddAttachment v_FilSen
    Else
      v_dep = v_dep - 1
    End If
    Next
   
   .Send
End With
Set config = Nothing
Set EMAIL = Nothing
  SEMAIL = True

Mais j'ai riens pour inséret une signateur.
Merci de votre aide.



Cette discussion est classée dans : http, item, configuration, cdo, vopt


Répondre à ce message

Sujets en rapport avec ce message

Envoi de mail via CDO [ par fredthomas ] Bonjour à tous, Je développe un programme en VBA sous Excel pour automatiser l'envoi de mail (mon programme génére en boucle plusieurs fichiers qui s valeur Progressbar durant le temps d'envoi d'un email [ par amita ] mes amis voici mon problème : je souhaite faire avancer un progressbar selon le temps de l'envoi d'un email mais j'arrive pas, voici la fonction [col Réception de mail avec CDO [ par YPMN ] Salut mes frères. Comme j'avais besoin de savoir comment envoyer un mail via vb6 à une adresse précise, suis tombé sur ce code à travers notre mine d problème avec CDo en vb [ par Galactus13 ] Bonjour a tous ! Question toute simple, ou est mon erreur ? Code : [quote]TxtServeur = "messenger.hotmail.com" Dim Mail As CDO.Message Set Mail = Cr Envoi de mail [ par benjamin28 ] BonjourJ'utilise un script vbs pour envoyer un mail avec une piece jointe :----------------------------------------------------------On Error Resume N [VB6] Problème .Update(CDO.Message) [ par Reynas ] Bonjour tout le monde, Je sollicite votre aide car j'ai un petit souci j'ai recuperer un code afin de pouvoir envoyer des mails via VB6 avec la com Envoi pièces jointe avec Cdonts [ par fdthierry ] Bonjour,Mieux qu'un long discours, voici mon code:' Send by connecting to port 25 of the SMTP server.Dim iMsg Dim iConf Dim Flds Dim strMailConst cdoS Copier un fichier dans un envoie d'email VB6 [ par booba27100 ] Bonjour, je souhaite copier un fichier qui se trouve à un emplacement précis, vers une pièce jointe d'un email. Exemple : Le fichier que je souhaite "SendUsing" est non valide lors de l'envoi d'un mail avec un objet CDO [ par pierrealain6913 ] Bonjour, J'utilise un script WSH en VB pour envoyer un mail depuis mes serveurs vers les informaticiens du domaine pour les alerter. Ce script utilise


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,435 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales