Re : Remplir un formulaire Outlook via Excel
Hello
En effet, des infos sont manquantes... Voici ce que j'ai déjà trouvé:
Option Explicit
Sub Mall_E_postutskick()
Dim olApp As Outlook.Application
Dim olMailItem As Outlook.MailItem
Set olApp = New Outlook.Application
'Here we create the outgoing mail based of a template
Set olMailItem = olApp.CreateItemFromTemplate("c:Form_creation.oft")
With olMailItem
.Recipients.Add ActiveSheet.Range("A2").Value
.Subject = ActiveSheet.Range("A3").Value
'.Body = "Mvh XL-Dennis"
'With .Attachments
'.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
'.Item(1).DisplayName = "Mall e-postutskick"
'End With
'.Save
.Display
End With
Set olMailItem = Nothing
Set olApp = Nothing
End Sub
Mon formulaire Outlook qui s'appelle Form_creation.oft contient plusieurs champs (ex: Type de calcul, Numéro de série....). C'est le contenu de ce champs que je voudrais remplir, avec la donnée se trouvant en cellule A6, A7... de ma feuille Excel...
J'éspère avoir été plus clair!
Merci par avance,
Elokapo