Versturen van een werkblad met de mail

[Timmy2006]

Hallo,
Ik wil een blad uit een werkmap versturen per mail, dit gaat goed alleen wil ik dat het bestand geen map1, map2 etc. heet maar naar door mij aangegeven naam van persoon in een cel in het werkblad.
Kan iemand mij de laatste handeling geven?

Columns("A:C").Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

[Timmy2006]

zo goed

Heb ik het zo goed gedaan?

 

[MDN111]

Hallo !

De volgende link geeft je een prachtig stukje code om je probleem aan te pakken:http://www.rondebruin.nl/mail/folder1/mail2.htm

Grtz,
MDN111.

 

[Timmy2006]

Dank je ik heb volgende gemaakt maar nu wil ik nog meer!

Sub OPnaarmail()
'
' OPnaarmail Macro
'

'
    Columns("A:H").Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
   ActiveWorkbook.SaveAs ActiveSheet.Range("A2").Value
      
    ActiveWorkbook.SendMail Recipients:=Range("E3:F3").Value, Subject:="Jaarboek"
  
End Sub

Ik wil nog een brief in de mail erbij doen hoe doe ik dat?

groetjes Timmy

 

[Hoornvan]

Timmy2006,

Zou je zo vriendelijk willen zijn om de volgende keer de Code te selecteren en dan op # klikken in het bovenstaande menu. :thumb:
Dan komt de code in een apart vak te staan, zoals hier onder.

Sub OPnaarmail()
'
' OPnaarmail Macro
'

'
Columns("A:H").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveWorkbook.SaveAs ActiveSheet.Range("A2").Value

ActiveWorkbook.SendMail Recipients:=Range("E3:F3").Value, Subject:="Jaarboek"

End Sub

 

[Timmy2006]

Sorry,

Ja, zal ik doen wordt mijn vraag nog wel behandeld?

groetjes,
Timmy

 

[Warme bakkertje]

m.i. niet mogelijk met Sendmail. Je zal moeten overschakelen op Outlook.

 

[Timmy2006]

Klopt

Hallo,
Ik ben er achter het gaat helamaal anders kan inderddad niet met Sendmail.
Toch bedankt
gr Timmy