beste forumleden
ik heb hier een code gevonden om een e-mail te versturen die ik graag wil aanpassen maar lukt me niet
ik wil graag ("A3") veranderen in ("A3 P153") maar dat lukt me niet.
en ik had nog een vraag over het versturen, dit doet hij pas als ik outlook open.
hoop dat iemand me verder wil helpen
groetjes ronnie
ik heb hier een code gevonden om een e-mail te versturen die ik graag wil aanpassen maar lukt me niet
Code:
Private Sub CommandButton4_Click()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurrFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
ActiveWorkbook.Save
CurrFile = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
With olMail
.To = ActiveSheet.Range("Q1")
.Subject = "stand"
.Body = ActiveSheet.Range("A3").Text & vbCrLf & ActiveSheet.Range("U10").Text
.Display
.Send
End With
Set olMail = Nothing
Set olApp = Nothing
End Sub
Code:
.Body = ActiveSheet.Range("A3").Text & vbCrLf & ActiveSheet.Range("U10").Text
en ik had nog een vraag over het versturen, dit doet hij pas als ik outlook open.
hoop dat iemand me verder wil helpen
groetjes ronnie