Email-foutmelding

[hazesoft]

Omdat meerdere collega's op diverse scholen met de werkmap werken, is op ieder blad een knop aanwezig om het geopende blad via mail te versturen.
Ik krijg echter een foutmelding volgens de bijlage, terwijl de sheet wel verstuurd wordt.
Wat is er fout in onderstaande code?

Sub Mail_ActiveSheet()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Sheet van " & ThisWorkbook.Name _
& " " & strdate & ".xls"
.SendMail "hazesoft@home.nl", _
"Werkblad software-index"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub

 

[puppie]

Hans,
Jij wilt rechtstreeks vanuit een geopend excel blad naar iemand mailen.
Dat zou ik je afraden. Dit gaat vaker fout dan goed.
Gewoon werkblad opslaan en als bijlage mee verzenden met een mail.

 

[Tanja1968]

Kun je wel mail ontvangen? Als ik je foutmelding bekijk moet er volgens mij bij account geen "hans" staan, maar de pop gegevens van home (binnenkomende server gegevens)

 

[puppie]

@Tanja,
Dat klopt wel hoor dat is de account naam.
voor inkomende mail bij @home staat er mail.home.nl en dit zelfde staat er ook voor uitgaande mail. smtp

 

[hazesoft]

wel mail ontvangen

Ja, ik kan wel mail ontvangen.

 

[Tanja1968]

oke:thumb: Niets gezegd

 

[hazesoft]

No problem!

 

[MayNiak666]

Met de Excel-code is, naar mijn bescheiden mening niets mis. Dit probleem ontstaat als er in Outlook (Express) bij de instellingen van de email-account iets niet goed ingevuld is. Dit kunnen soms ergkleine dingetjes zijn. Een veel voorkomende fout is bijvoorbeeld dat er bij de uitgaande mail-server stmp.home.nl ingevuld staat, terwijl er smtp.home.nl zou moeten staan. Ik zou het echt in die rivhting zoeken. Ik weet dat er erg veel mensen met dezelfde code werken, en die is gewoon goed...

 

[hazesoft]

instelling

Dezelfde fout als quote: Ik zou het echt in die rivhting zoeken?
Nee, de instellingen staan goed: beide mail.home.nl.
Toevoeging smtp is bij @home niet nodig.

 

[hazesoft]

foutmelding

Heeft iemand nog een andere oplossing?

 

[hazesoft]

Ik moet toch rechtstreeks vanuit een geopend werkblad kunnen mailen!!!!
Wie ziet de uitdaging en wil zich hier nog eens over buigen?
Het moet toch mogelijk zijn!

 

[MayNiak666]

Je zegt dat meerdere gebruikers van dezelfde werkmap gebruik maken. Hebben die andere gebruikers ook last van een dergelijke foutmelding? Ik blijf bij de stelling dat er met de code niets mis is, aangezien ik weet dat er heel veel mensen met deze code werken... Denk ook eens aan virusscanners of firewalls... Zit daar een instelling je soms dwars?

 

[jpvs]

zie eens op deze site : alles over verzenden.

http://www.rondebruin.nl/sendmail.htm

Pierre

 

[hazesoft]

Hallo Pierre,
Ik gebruik dezelfde code als Ron de Bruin:

Sub Mail_ActiveSheet()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strdate & ".xls"
.SendMail "ron@debruin.nl", _
"This is the Subject line"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub


En toch een foutmelding.