Greenlynx
XLDnaute Nouveau
Bonjour à tous,
Mon premier post ici donc si je ne suis pas clair ou qu'il manque des informations n'hésitez pas 🙂
Ma problematique est la suivante :
Je souhaiterais ouvrir un modele outlook (.oft), completer certains champs avec des données de ma feuille excel et génerer un email a partir de cela (sans l'envoyer)
La feuille se presente ainsi
[TABLE="width: 500"]
[TR]
[TD]Champ 1[/TD]
[TD]Champ 2[/TD]
[TD]Champ 3[/TD]
[TD]Email to[/TD]
[TD]Email CC[/TD]
[TD]Chemin Pièce Jointe[/TD]
[/TR]
[TR]
[TD]xxx[/TD]
[TD]yyy[/TD]
[TD]zzz[/TD]
[TD]*@*[/TD]
[TD]*@*[/TD]
[TD]C:\...etc
[/TD]
[/TR]
[/TABLE]
Le fichier serait lu ligne à ligne et generera un mail par ligne avec les données correspondantes
Je ne suis pas expert en VBA mais alors pour l'interaction avec MS Outlook .... :/
J'arrive a ouvrir mon template sans trop de soucis :
Par contre pour ce qui est de la fusion aucune idée, j'ai cherché mais je n'ai rien trouvé d'approchant mon besoin.
Si vous avez des pistes je suis preneur 🙂
Merci d'avance à tous
Mon premier post ici donc si je ne suis pas clair ou qu'il manque des informations n'hésitez pas 🙂
Ma problematique est la suivante :
Je souhaiterais ouvrir un modele outlook (.oft), completer certains champs avec des données de ma feuille excel et génerer un email a partir de cela (sans l'envoyer)
La feuille se presente ainsi
[TABLE="width: 500"]
[TR]
[TD]Champ 1[/TD]
[TD]Champ 2[/TD]
[TD]Champ 3[/TD]
[TD]Email to[/TD]
[TD]Email CC[/TD]
[TD]Chemin Pièce Jointe[/TD]
[/TR]
[TR]
[TD]xxx[/TD]
[TD]yyy[/TD]
[TD]zzz[/TD]
[TD]*@*[/TD]
[TD]*@*[/TD]
[TD]C:\...etc
[/TD]
[/TR]
[/TABLE]
Le fichier serait lu ligne à ligne et generera un mail par ligne avec les données correspondantes
Je ne suis pas expert en VBA mais alors pour l'interaction avec MS Outlook .... :/
J'arrive a ouvrir mon template sans trop de soucis :
Code:
Sub CreateFromTemplate()
Dim myOlApp As Outlook.Application
Dim MyItem As Outlook.MailItem
Dim Chemin As String
'Recuperation du chemin pour le modèle'
'Chemin = ActiveWorkbook.Path
Set myOlApp = CreateObject("Outlook.Application")
Set MyItem = myOlApp.CreateItemFromTemplate("XXXXX.oft")
'Renseignement des champs email'
.Recipients.Add ActiveSheet.Range("A2").Value
.Subject = ActiveSheet.Range("A3").Value
MyItem.Display
End SubPar contre pour ce qui est de la fusion aucune idée, j'ai cherché mais je n'ai rien trouvé d'approchant mon besoin.
Si vous avez des pistes je suis preneur 🙂
Merci d'avance à tous