envoi e-mail avec outlook en vba
bonjour a tous je cherche le moyen d'envoyer un e-mail automatique en vba j ai deja une partie du code mais ca bloque a louverture d'outlook je n arrive pas a mettre une adresse de destination automatique
voici mon code: ca bloque au niveau du rouge
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Sub create()
'
' create Macro
'
' Keyboard Shortcut: Ctrl+y
'
Range("A15:Q42").Select
Selection.Copy
Workbooks.Open Filename:= _
"M:\marketing\Yield Management\YM CCB Dashboards\Price tool\Price tool 2012\template essais.xlsx"
lig = Range("a42").End(xlUp).Offset(1, 0).Select
Selection.Paste
ActiveWorkbook.Save
Application.Dialogs(xlDialogSendMail).ShowActiveWindow.Close
Range("A15").Select
End Sub |
quelqu un pourrait il maider c est super important merci d avance
