mail macro werkt bij 4 mensen niet en bij 6 andere wel op zelfde netwerk

[davylenders123]

Heb een bestand gemaakt met een button in die het bestand mailt.
Echter loopt de macro bij 4 personen vast op het punt dat hieronder in het rood staat.
Bij 6 andere personen werkt het gewoon wel.
Hebben ook nog een soortgelijk bestand dat de zelfde code bevat en dat werkt bij iedereen wel.
Waar zou dat aan kunnen liggen , en is er een andere manier mogelijk van het schrijven van deze macro.

Dit is een bestand dat op sharpoint staat en dat het bestand opslaat op een netwerkschijf waar iedereen bij ons toegang toe heeft.
Heb het bestand ook al eens op de netwerk schijf gezet waar het weggeschreven wordt en van daar laten werken maar geeft hetzelfde probleem.
Heb ook al eens gekozen om het bestand weg te schrijven op hun prsonlijke map maar geeft ook zelfde foutmelding.

Sub mailoutlook()


If [Pharmatransit!C2] = "" Then MsgBox "Je hebt geen datum ingevuld in cel C2 !": Exit Sub
If vbNo = MsgBox("Ben je wel zeker dat je de mail wil verzenden", vbYesNo) Then Exit Sub

ActiveWorkbook.Save


[COLOR="#FF0000"]ActiveWorkbook.SaveAs Filename:=("G:\Pakketten\Everyone\Dagrapporten mailen transit\" & "Dagrapport Transit  " & [Pharmatransit!C2] & ".xlsm")[/COLOR]  
With CreateObject("Outlook.Application").createitem(olMailItem)
  .To = "davy.lenders@postnl.be"
  .cc = ""
  .Subject = "Dagrapport Transit " & [Pharmatransit!C2] & ".xlsm"
  .body = Replace("Goedemorgen,##Bij deze stuur ik jullie het dagrapport van Transit.##Met Vriendelijke Groeten##Transit meedewerker###", "#", vbCr)
  .Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
  .Send
  End With
  
  MsgBox "De e - mail is correct verstuurd ", vbInformation
End Sub

 

[edmoor]

Die With hoort in ieder geval op de volgende regel:
".xlsm")
With CreateObject


In plaats van:
".xlsm") With CreateObject

 

[Ginger]

Aansturing van netwerk drives probeer ik zoveel mogelijk te regelen via de "\\server\drivenaam\pad" (=UNC) methode ipv via de drive letter. Zo voorkom je veel problemen als drives niet identiek gemapt zijn bij gebruikers.

 

[HSV]

Werken die misschien op een Mac?
Ook is het vreemd dat er twee spaties in een bestandsnaam staan (maar als het een goed werkt zou je zeggen dat het bij die ander ook goed moet gaan)

"Dagrapport Transit[COLOR=#ff0000]spatiespatie[/COLOR]" & [Pharmatransit!C2] & ".xlsm")

edit: Bericht van Leo gemist.

 

[Ginger]

Hierbij een link naar een mooi voorbeeld voor hoe je eventueel die UNC te pakken kan krijgen via VBA...

 

[davylenders123]

edmoor

Was een foutje van mij stond wel juist in macro maar met de kleur in de code te zetten is het wat versprongen heb het gewijzigd in dit bericht

 

[Timshel]

Misschien kun je ook nog even ingaan op de reacties van Ginger en HSV.

 

[davylenders123]

Timshel

Was nog bezig met uittesten

HSV spatie heb ik ook eens weg genomen maar loste het probleem niet op.

Ginger Ben met u oplossing even naar onze it dienst gegaan en dit zouden we niet kunnen omdat ze op de hoofdzetel van ons de servernaam niet willen vrijgeven en we die zelf niet kunnen achterhalen.

We hebben een andere oplossing gevonden door de code wat aan te passen.(rode gedeelte)
Nu werkt het wel , enkel is de naam van het bestand dat gemaild wordt de datum van versturen maar dit is niet echt een probleem hiervoor.

Blijft raar dat het bij 4 mensen niet werkte en bij 6 andere wel . Ze werken allemaal op zelfde netwerk en met zelfde pc's

Alle bedankt voor de hulp :thumb::thumb:

Sub mailoutlook()


If [Pharmatransit!C2] = "" Then MsgBox "Je hebt geen datum ingevuld in cel C2 !": Exit Sub
If vbNo = MsgBox("Ben je wel zeker dat je de mail wil verzenden", vbYesNo) Then Exit Sub

[COLOR="#FF0000"]ActiveWorkbook.Save
ActiveWorkbook.SaveAs "G:\Pakketten\Everyone\Dagrapporten mailen transit\" & Format(Now, "dd-mmm-yy h-mm-ss")[/COLOR]

  With CreateObject("Outlook.Application").createitem(olMailItem)
  .To = "fhff@jfjf.be"
  .cc = ""
  .Subject = "Dagrapport Transit " & [Pharmatransit!C2] & ".xlsm"
  .body = Replace("Goedemorgen,##Bij deze stuur ik jullie het dagrapport van Transit.##Met Vriendelijke Groeten##Transit meedewerker###", "#", vbCr)
  .Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
  .Send
  End With
  
  MsgBox "De e - mail is correct verstuurd ", vbInformation
End Sub