Excel versturen als bijlage d.m.v. macro

[hanzel]

Beste,

In plaats van dat de mail gelijk wordt verstuurd (zoals in onderstaande opdracht staat) zou ik graag hem als bijlage willen importeren in Outlook om vervolgens de mail zelf nog verder te bewerken. Denk hierbij aan toevoegen van extra beeldmateriaal of mailadressen.

Indien mogelijk dat het vermelde mailadres in de verzendlijst staat.

-----------------------------------------------------------------------------------------------------------


Sub Verzenden()

subject1 = "Afkeur verpakkinsgmateriaal " & Range("B11")

MyCheck = MsgBox("Wilt u het formulier e-mailen naar Klachten verpakkingsmaterialen?", vboOKCancel)

If MyCheck = vbCancel Then
Range("A6").Select

Else
With GetObject(, "Outlook.Application")
x = .GetNamespace("MAPI").GetDefaultFolder(6).Items.Count

ActiveWorkbook.SendMail Array("klachtenverpakkinsmateriaal@XXX.com"), Subject:=subject1
Range("A6").Select
End If

End Sub


Private Sub CommandButton2_Click()

subject1 = "Afkeur verpakkinsgmateriaal " & Range("B11")

MyCheck = MsgBox("Wilt u het formulier e-mailen naar Klachten verpakkingsmaterialen?", vboOKCancel)

If MyCheck = vbCancel Then
Range("A6").Select

Else
With GetObject(, "Outlook.Application")
x = .GetNamespace("MAPI").GetDefaultFolder(6).Items.Count

ActiveWorkbook.SendMail Array("klachtenverpakkingsmateriaal@XXX.com"), Subject:=subject1
Range("A6").Select
End If

End Sub

----------------------------------------------------------------------------------------------
groeten,
Hans

 

[edmoor]

Dat staat hier helemaal uitgelegd:
http://www.rondebruin.nl/win/s1/outlook/amail1.htm