Werkblad per mail

[nalautus]

Beste lezer,

Ik zit met het volgende:
Een werkblad met mailbutton. Macro zorgt ervoor dat Outlook mailbericht opent.

Situatie nu:
1. Mailbericht opent en achter "Aan: veld" staat wel het mailadres geadresseerde. Het werkblad is niet als bijlage toegevoegd.
Code:

Sub Knop1_BijKlikken()
Aan = Range("Data!A16")
Subj = "Aanvraag voor ..."
Msg = ""
HLink = "mailto:" & Aan & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
ActiveWorkbook.FollowHyperlink (HLink)
End Sub

2. Mailbericht opent en achter "Aan: veld" staat geen mailadres geadresseerde. Het werkblad is wel als bijlage toegevoegd.
Code:

Application.Dialogs(xlDialogSendMail).Show

Wat wil ik:
Mailbericht opent en achter "Aan-veld" staat wel mailadres geadresseerde. Het werkblad is wel als bijlage toegevoegd.

Wie helpt mij verder?

Groet,
Nalautus

 

[snb]

Sub mail_aktief_werkboek_send()
  ActiveWorkbook.SendMail "ga@gmail.com", "proef"
End Sub

 

[nalautus]

Bedankt voor de hulp.

Nu wordt er helaas niet verwezen naar mijn Range("Data!A16") Deze formulier geeft een verwijzing naar de verschillende geadresseerden.

Weet je hier misschien iets op?

 

[snb]

Sub mail_aktief_werkboek_send()
  ActiveWorkbook.SendMail [Data!A16], "proef"
End Sub

 

[nalautus]

Helaas krijg ik niet het gewenste resultaat...

Waar kan ik de code invoegen als ik gebruik maak van de volgende opzet:

Sub Knop1_BijKlikken()
Aan = Range("Data!A16")
Subj = "Aanvraag voor ..."
Msg = ""
HLink = "mailto:" & Aan & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
ActiveWorkbook.FollowHyperlink (HLink)
End Sub