*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Mailen in Excel  (gelezen 1037 keer)

0 leden en 1 gast bekijken dit topic.

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 264
  • 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

Code: [Selecteer]
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
Gelogd
Excel 365 NL

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 224
  • 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?
Gelogd
|-|aije

ik gebruik Office 2016 Professional Plus

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 264
  • 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   :-[
Gelogd
Excel 365 NL

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.345
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Mailen in Excel
« Reactie #3 Gepost op: 12 oktober 2024, 16:27:51 »
Citaat van: Sunnybat op 12 oktober 2024, 07:01:16
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 :)             
Gelogd
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: 237
  • Geslacht: Vrouw
Re: Mailen in Excel
« Reactie #4 Gepost op: 12 oktober 2024, 16:49:44 »
Werkt dit beter?
Code: [Selecteer]
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
Gelogd
Groetjes,Della

Offline Della Jordan

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

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 264
  • 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 )
Gelogd
Excel 365 NL

Offline Della Jordan

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

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 264
  • Geslacht: Man
  • Oplossing.be
Re: Mailen in Excel
« Reactie #8 Gepost op: Gisteren om 18:25:14 »
@Della Jordan

Super :thumbsup: werkt perfect
Gelogd
Excel 365 NL
Pagina's: [1]   Omhoog
 


www.combell.com