Goede middag allen,
Onderstaande code die ook via dit forum is verkregen verstuur ik email vanuit excel.
Dit werkt naar behoren.
Mijn vraag is of het mogelijk is dat de Email hantekening m.b.v. een VBA code ook automatich geplaast kan worden, die is in gesteld in outlook.
Sub Verzenden()
Range("A1:I7").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = False
Range("A1:I7").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats
Columns("A").EntireColumn.AutoFit
Application.CutCopyMode = False
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
End With
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Application.ScreenUpdating = True
Range("A1").Select
End Sub
Onderstaande code die ook via dit forum is verkregen verstuur ik email vanuit excel.
Dit werkt naar behoren.
Mijn vraag is of het mogelijk is dat de Email hantekening m.b.v. een VBA code ook automatich geplaast kan worden, die is in gesteld in outlook.
Sub Verzenden()
Range("A1:I7").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = False
Range("A1:I7").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats
Columns("A").EntireColumn.AutoFit
Application.CutCopyMode = False
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
End With
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Application.ScreenUpdating = True
Range("A1").Select
End Sub