picker1100
Gebruiker
- Lid geworden
- 9 jul 2009
- Berichten
- 21
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
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