Adresse et sujet email

xhudi69

XLDnaute Accro

• 11 Août 2012

• #2

Re : Adresse et sujet email

Bonjour maval, le Forum

Avec ceci

objMessage.Subject = Me.TextBox3.Value

@+

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 11 Août 2012

• #3

Re : Adresse et sujet email

Bonjour xhudi69

Je te remercie d'avoir répondu super sympa mais pourrez tu me dire ou je mettre cette ligne

Merci d'avance

Maval

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 11 Août 2012

• #4

Re : Adresse et sujet email

Bonjour à tous.

Il faut dans un premier temps activer la bibliothèque outlook dans le classeur

Aller dans l'éditeur vba excel

MEnu outils
Références
sélectionner micrsoft outlook xx.x object library en cliquant dans la case à cochée
Ok puis sauvegarde.

ensuite reviens vers moi pour le code

 

Dernière édition: 11 Août 2012

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 11 Août 2012

• #5

Re : Adresse et sujet email

Bonjour camarchepas,

Merci d'être intervenu, j'ai bien activer bibliothèque outlook si tu veut bien me dire pour le code?

je te remercie d'avance

Maval

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 11 Août 2012

• #6

Re : Adresse et sujet email

RE:
désolé maval, petit loupé

Bonjour camarchepas on se croise, pas fait attention 😛

ci-joint ton fichier avec le code à adapter selon tes besoin.
Modifie les adresse mail, merci.

@+

 

Pièces jointes

• Adresse email sur deux feuilles_BIS.xlsm

  143.2 KB · Affichages: 49

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 11 Août 2012

• #7

Re : Adresse et sujet email

Re,

J'ai un message d'erreur "argument ou appel de procédure incorrect"

@+

Maval

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 11 Août 2012

• #8

Re : Adresse et sujet email

Re:

as-tu modifier le serveur "smtp" ?

("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.free.fr"

Si tu as comme moi MS OUTLOOK tout devrai bien fonctionné.

Ce code est fait pour marcher avec un texte en "Feuil1" qui sera envoyé en PJ sous forme pdf. mais tu n'est pas obligé de le faire,
l'avantage est qu'il te suffit d'avoir seulement le ComboBox1 et le TextBox3.
Si tu ne veux pas de PJ en pdf, supprime les lignes de code nécessaire et remplace le "Body" dans la procédure.

objMessage.TextBody = 'ce que tu désire'

@+

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 11 Août 2012

• #9

Re : Adresse et sujet email

Re,
Comment modifier le serveur "smtp" ?

@+

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 11 Août 2012

• #10

Re : Adresse et sujet email

Re:

dans le code ci-dessous, dans l'évennement "Private Sub CommandButton1_Click() "

dans la ligne: ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.free.fr"
il faut modifir comme ceci:
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.orange.fr" si tu est chez orange.....

("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.sfr.fr" si tu es chez sfr
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.bouygues.fr" si tu es chez bouygues etc etc ....

ne modifie rien directement dans OUTLOOK.

@+

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 11 Août 2012

• #11

Re : Adresse et sujet email

Re,

Non je suis chez free

@+

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 11 Août 2012

• #12

Re : Adresse et sujet email

Voici un exemple de code :

Regardes si tu peux l'adapter toi même sinon je te donnerais un coup de main.


Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Derligne As Long
Dim Adresse As String
Dim Feuille As String
Dim Particule As String

Feuille = "Parcours"
ThisWorkbook.Worksheets(Feuille).Select
Derligne = ChercheDernièreLigne(ThisWorkbook.Name, Feuille)
For Tourne = 2 To Derligne

NomPrenom = Left(ThisWorkbook.Worksheets(Feuille).Range("D" & Tourne) & "_" & ThisWorkbook.Worksheets(Feuille).Range("C" & Tourne), 40)


Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
'---------------------------------------------------------

With oBjMail
Adresse = ThisWorkbook.Worksheets(Feuille).Range("B" & Tourne)
Particule = ThisWorkbook.Worksheets(Feuille).Range("Q" & Tourne)
.To = Adresse ' le destinataire
' Stop ' Attention adresse d'essai
.CC = adressebis ' si besoin
.Subject = "Financement formation Anglais Télélangue " ' l'objet du mail


.Body = Replace(Replace(Particule, "M.", "Monsieur"), "Mme", "Madame") & "," & Chr(10) & Chr(10) & _
"Moi l'expéditeur "


' Ici on peut supprimer pour l'envoyer sans vérification
.Display
' Envoi
.Send
End With
Set oBjMail = Nothing
Set ObjOutlook = Nothing

End Sub

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 11 Août 2012

• #13

Re : Adresse et sujet email

Re Camarchepas,

En partant de mon fichier #1 je n'arriverai jamais en l'adapter moi même avec toute la meilleur volonté

J’apprécierai volontiers ton aide

Bonne journée

@+

Maval

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 11 Août 2012

• #14

Re : Adresse et sujet email

Re:

Ma config est la suivante:

Office 2007
dans VBA voir dans "OUTILS => REFERENCES"



@+

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 11 Août 2012

• #15

Re : Adresse et sujet email

Re,

Nous avons la même configuration

@+

 

Vote positif 0 Vote négatif