Macro avec 2 variable

[Antoine]

Bonjour Forum


J´ai cette macro
Mais je´n´arrive pas à l´insérer ds le code d une de mes feuilles.
Cad: j´arrive à l appeler avec une variable mais pas avec les deux?

Comment fait on?

envoyermail (Destinataire, Sujet) ne marche pas
-> m´indique l erreur 'Erreur de compilation = '

Sub envoyermail (destinataire as string, sujet as string)
Dim oOutlook As New Outlook.Application
Dim oMessage As Outlook.MailItem

Set oMessage = oOutlook.CreateItem(olMailItem)

With oMessage
.Subject = sujet
.Body = 'yeh yeh yeh'
.To = destinataire
.Display

End With
End Sub

 

[MichelXld]

bonjour Antoine

tu peux tester en activant la macro 'Lancement'

Sub Lancement()
EnvoyerMail 'leforum@xld.fr', 'bonjour'
End Sub

Sub EnvoyerMail(destinataire As String, sujet As String)
Dim oOutlook As New Outlook.Application
Dim oMessage As Outlook.MailItem

Set oMessage = oOutlook.CreateItem(olMailItem)

With oMessage
.Subject = sujet
.Body = 'yeh yeh yeh'
.To = destinataire
.Display

End With
End Sub

bon apres midi
MichelXld

 

[Antoine]

Merci Michel

Ca marche bien

Bon aprem a toi aussi