Tekst in cel platsen via VBA

[hryttel]

Beste Helpmij,

Ik heb in Excel 2003 een CommandButton1 gemaakt om een Excel document te verzenden en het werkt.
Nu wil ik dat de tekst in cel C137 (naast de verzend knop) overschreven wordt met en tekst “verzonden” en met datum en tijd van het verzenden.

2e vraag, hoe voeg ik de naam van de afzender toe bij "Met vriendelijke groet, (in plaats van) TM VHV"

Private Sub CommandButton1_Click()
With CreateObject("Outlook.Application").createitem(0)
.to = "ontvanger@123.nl"
.Subject = "Dag bezettinglijst"
.body = Replace("Beste collega,#Hierbij de dagbezettinglijst voor vandaag.# #Met vriendelijke groet, #TM VHV.###", "#", vbCr)
.attachments.Add ThisWorkbook.FullName
.Send
End With
End Sub

Groeten en alvast bedankt,
Henning

 

[wilbert1967]

zie
http://msdn.microsoft.com/en-us/library/ee834871(office.11).aspx

aan einde van de vba regels die bij de button horen zet je

Sub tekst()

naam = "Verzonden " & Date & " " & Time
ActiveSheet.Range("B12").Value = naam
End Sub

 

[leofact]

Als de afzender de gebruikersnaam van de excel gebruiker is, kun je deze als volgt toevoegen.


Range("C137") = "Verzonden: " & Application.UserName & " " & Strings.Format(now, "dd-mm-yyyy h:mm")

mvg Leo

 

[hryttel]

Wilbert,
Jou Code krijg ik niet werkend, ligt ongetwijfeld aan mij.

Leo,
Jou regel werkt! Dank je wel
Alleen is de tekst en datum en tijd stempel is niet zichtbaar in het verzonden document.
Heb jij hiervoor ook een suggestie?

Henning

 

[leofact]

Dat zou bv op onderstaande wijze kunnen.
Ik heb de tijd in het onderwerp gezet en de cr's direct er in gezet. Je eigen replace methode is natuurlijk wel korter.
e.e.a is naar je eigen voorkeur aan te passen.

Private Sub CommandButton1_Click()
Dim sTijd As String
Dim sAfzender As String
sAfzender = Application.UserName & " "
sTijd = Strings.Format(Now, "dd-mm-yyyy h:mm")
Range("C137") = "Verzonden: " & sAfzender & " " & sTijd
    
    With CreateObject("Outlook.Application").createitem(0)
        .to = "ontvanger@123.nl"
        .Subject = "Dag bezettinglijst dd." & sTijd
        .body = "Beste collega," & vbCr & "Hierbij de dagbezettinglijst voor vandaag." _
            & vbCr & vbCr & "Met vriendelijke groet," & vbCr & vbCr & sAfzender
        .attachments.Add ThisWorkbook.FullName
        .send
    End With
End Sub

 

[hryttel]

Leo,

Dank je wel werkt prima.
Ik ga dit item sluiten.

Groeten,
Henning

 

[leofact]

Graag gedaan

Mvg Leo