Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Mailen in Excel  (gelezen 37550 keer)

0 leden en 1 gast bekijken dit topic.

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 265
  • Geslacht: Man
  • Oplossing.be
Mailen in Excel
« Gepost op: 11 oktober 2024, 12:52:49 »
Hoi,
ik had deze reeds een keer gehad ben blijven puzzelen maar hij blijft maar zeggen

het Subscript valt buiten het bereik

Sub SendSheet()
    Fname = "geen voorbeeld"
    Sheets("sunnybat zonder voorbeeld").Range("A1:E50").Copy
    With ThisWorkbook
        .SaveAs ThisWorkbook.Path & "\" & Fname, 50
        .Close False
    End With
    With CreateObject("outlook.application").createitem(0)
        .to = "hier het emailadres"
        .Subject = "hier het onderwerp of celverwijzing"
        .body = "In bijlage de gevraagde XXXX." & vbLf & vbLf & "Groeten Sunnybat"
        .attachments.Add ThisWorkbook.Path & "\" & Fname & ".xlsx"
        .display
    End With
    Kill ThisWorkbook.Path & "\" & Fname & ".xlsx"
End Sub

Excel 365 NL

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 226
  • Geslacht: Man
  • Oplossing.be
Re: Mailen in Excel
« Reactie #1 Gepost op: 11 oktober 2024, 16:02:33 »
En op welke regel geeft hij die melding?
|-|aije

ik gebruik Office 2016 Professional Plus

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 265
  • Geslacht: Man
  • Oplossing.be
Re: Mailen in Excel
« Reactie #2 Gepost op: 12 oktober 2024, 07:01:16 »
@Haije

dat is het gekste maar dat doet die juist niet   :-[
Excel 365 NL

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.351
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Mailen in Excel
« Reactie #3 Gepost op: 12 oktober 2024, 16:27:51 »
dat is het gekste maar dat doet die juist niet   :-[
Sunnybat,

Als je de VBEditor opent, en je gaat elke lijn van de macro af met F8, dan krijg je de foutmelding als je de regel passeert.

Dat is wat Haije vraagt.

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Della Jordan

  • Volledig lid
  • **
  • Berichten: 239
  • Geslacht: Vrouw
Re: Mailen in Excel
« Reactie #4 Gepost op: 12 oktober 2024, 16:49:44 »
Werkt dit beter?
Sub sendsheet()
lengte = Len(ThisWorkbook.Name)
workbookCopyFullName = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - lengte) & Range("H1").Value & ".xlsm"
ThisWorkbook.SaveCopyAs workbookCopyFullName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
 On Error Resume Next
With OutlookMail
    .To = "hier het emailadres"
    .Subject = "hier het onderwerp of celverwijzing"
    .Body = "In bijlage de gevraagde XXXX." & vbLf & vbLf & "Groeten Sunnybat"
    .Attachments.Add workbookCopyFullName
    .Display
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Kill workbookCopyFullName
End Sub
Zie bijlage.
Weet je Sunnybat, een voorbeeld bestandje kan wonderen doen
Groetjes,Della

Offline Della Jordan

  • Volledig lid
  • **
  • Berichten: 239
  • Geslacht: Vrouw
Re: Mailen in Excel
« Reactie #5 Gepost op: 15 oktober 2024, 18:21:30 »
@Sunnybat,
In hoevere is het opgelost??
Groetjes,Della

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 265
  • Geslacht: Man
  • Oplossing.be
Re: Mailen in Excel
« Reactie #6 Gepost op: 16 oktober 2024, 13:58:52 »
@Della Jordan

ga het morgen testen, ben stront ziek ( sorry )
Excel 365 NL

Offline Della Jordan

  • Volledig lid
  • **
  • Berichten: 239
  • Geslacht: Vrouw
Re: Mailen in Excel
« Reactie #7 Gepost op: 16 oktober 2024, 14:36:57 »
Veel beterschap
Groetjes,Della

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 265
  • Geslacht: Man
  • Oplossing.be
Re: Mailen in Excel
« Reactie #8 Gepost op: 17 oktober 2024, 18:25:14 »
@Della Jordan

Super :thumbsup: werkt perfect
Excel 365 NL

Offline Della Jordan

  • Volledig lid
  • **
  • Berichten: 239
  • Geslacht: Vrouw
Re: Mailen in Excel
« Reactie #9 Gepost op: 18 oktober 2024, 17:10:35 »
Mooi zo en graag gedaan. :)
Hopelijk voel je al wat beter.
Groetjes,Della

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 265
  • Geslacht: Man
  • Oplossing.be
Re: Mailen in Excel
« Reactie #10 Gepost op: 20 oktober 2024, 10:19:34 »
@Della Jordan
Jaja gelukkig wel
dank je wel :thumbsup:
Excel 365 NL

Offline Della Jordan

  • Volledig lid
  • **
  • Berichten: 239
  • Geslacht: Vrouw
Re: Mailen in Excel
« Reactie #11 Gepost op: 20 oktober 2024, 17:09:23 »
@sunnybat, dank voor de feedback :thumbsup:
Groetjes,Della

 


www.combell.com