Onderwerp toevoegen in mail opdracht

[picker1100]

Goedemiddag,

Ik heb in Excel een formulier gemaakt met een knop (formulier verzenden). Onder de knop heb ik VB-script zitten, zie onderstaand. Dit script zorgt ervoor dat het formulier als attachment mee wordt gestuurd. Wat ik wil is dat in het onderwerp van de mail automatisch de gegevens van kolom C5 uit het Excel-formulier worden meegenomen, hoe krijg ik dat voor elkaar?

Private Sub CheckBox2_Click()

End Sub

Private Sub CommandButton1_Click()

'Working in 2000-2010
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "xxxx@xxx.com"
.CC = ""
.BCC = ""
.Subject = "Hier wil ik de kolom C5 uit het Excel-aanvraagformulier automatisch in laten zetten zodat dit als onderwerp in de mail komt"
.Body = "Aanvraagformulier"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing



End Sub

Private Sub CheckBox1_Click()
With Sheets("Aanvraagformulier")
.Activate
.Unprotect "xxxxxx"
.Range("C33").Select
If CheckBox1.Value = Not True Then
.Rows("41:54").Hidden = True
Else
.Rows("41:54").Hidden = False
End If
.Protect "xxxxxx"
End With
End Sub

 

[gast0224]

Plaats je code met code tags a.u.b. Dat maakt de zaak leesbaarder. Je doet dat door de hele code te selecteren en de knop met # teken te gebruiken.

Wat ik wil is dat in het onderwerp van de mail automatisch de gegevens van kolom C5 uit het Excel-formulier worden meegenomen, hoe krijg ik dat voor elkaar?

Zo ongeveer:

.Subject = Cells.Range("C5")

 

[picker1100]

Plaats je code met code tags a.u.b. Dat maakt de zaak leesbaarder. Je doet dat door de hele code te selecteren en de knop met # teken te gebruiken.



Zo ongeveer:

.Subject = Cells.Range("C5")

Bedankt voor de reactie. Ik wil voor de inhoud van cell C5 ook nog een stuk tekst automatisch in laten vullen hoe kan ik dat er nog voor krijgen?

 

[OctaFish]

Wat mij betreft mag je je code met terugwerkende kracht nog opmaken

.Subject = "Typ hier de aanvullende tekst" & vbCrLf & vbCrLf & Cells.Range("C5")