Bestand opslaan als en een berichtje versturen

[HBot]

Beste **
Na bijna het hele forum te hebben afgezocht en vele oplossingen gelezen te hebben incl de site van Rob,
Kan ik niet de combinatie vinden of samenstelling die ik zoek.
Het lijkt zo simpel (waarschijnlijk voor de echte cracks)
Bijgaand een voorbeeld filetje om het duidelijk te maken, moet dit gaan verwerken in een veel grotere file.

Wat zou ik willen
Als mensen deze file openen (is een template) en verder invullen dan;
Bekijk bijlage test mail.xlsm
Als ze klaar zijn, dmv van een knop "opslaan en verstuur";
Opslaan als naam cel [C1].(werkblad met macro's)
Een berichte sturen (geen bijlage) met de mededeling "er staat een nieuwe file [naam cel C1] klaar in."
Dan afsluiten

Als iemand mij op weg kan helpen.
Gr
Henny

 

[VenA]

Wie is Rob? En verder staat er geen code in het bestand waaruit blijkt dat je ergens tegenaan loopt.

 

[HBot]

sorry ik bedoel Ron de Bruin
veel over mailen van werkbladen of hele files,maar wat ik zoek kan ik niet vinden, ik heb div. macro gekopieerd maar lopen steeds vast en ik kan deze niet ontcijferen en begrijpen, vandaar dat ik e´m leeg heb gelaten.
Gr
Henny

 

[edmoor]

Probeer dit maar eens:

Sub mail_werkboek_met_sendmail_adressen()
    Dim MailAddress As String
    Dim MailSubject As String
    Dim MailBody As String
    Dim OutMail As Object
    Dim OutApp As Object
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & Sheets("Blad1").Range("C1") & ".xlsm"
    MailBody = "er staat een nieuwe file " & Range("C1") & "klaar in."
    MailSubject = "Bestand gereed"
    MailAddress = Range("B9") & ";" & _
                  Range("B10") & ";" & _
                  Range("B11")
        
    With OutMail
        .To = MailAddress
        .CC = ""
        .BCC = ""
        .Subject = MailSubject
        .Body = MailBody
        .Display   'Of gebruik .Send
    End With
    
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[HBot]

Edmoor,

Bedankt, dit werkt perfect,
Weer wat geleerd
Ga het bewerken zodat ik het kan gebruiken in het werk document.
Gr en fijn weekend.

Henny