Versturen van een werkblad met de mail

Status
Niet open voor verdere reacties.

Timmy2006

Gebruiker
Lid geworden
22 aug 2010
Berichten
7
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?

Code:
Columns("A:C").Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
 
Laatst bewerkt door een moderator:
Dank je ik heb volgende gemaakt maar nu wil ik nog meer!

Code:
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
 
Laatst bewerkt door een moderator:
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.
Code:
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
 
Sorry,

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

groetjes,
Timmy
 
m.i. niet mogelijk met Sendmail. Je zal moeten overschakelen op Outlook.
 
Klopt

Hallo,
Ik ben er achter het gaat helamaal anders kan inderddad niet met Sendmail.
Toch bedankt
gr Timmy
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan