e-mail verzenden met Visual Basic met een attachment

[Egbert12345]

Beste forummers,

Probleem1:
Al weer heel lang geleden heeft Edmoor mij geholpen met een stukje code Visual Basic voor wat betreft het versturen van een e-mail met een bijlage.
Onderstaand de code die ik gebruik. Het werkt op zich prima, maar ik zoek een oplossing voor het volgende. Bij de attachment is nu het gehele path beschreven, maar nu gaat iemand anders het gebruiken en die heeft wellicht een andere indeling van zijn document.
Ik heb al diverse pogingen ondernomen met bijvoorbeeld eerst het path op te nemen (path=ActiveWorkbook.Path, de betreffende bijlage wordt dan geplaatst bij het programma met de macro). Hoe kan ik dat dan het beste benoemen achter AddAttachment.

PS het is mij niet gelukt om een voorbeeld mee sturen, want daar staan teveel persoonlijke gegevens in.

Probleem2:
In de volledige macro haal ik gegevens op uit een cel waarin ik met tekst.samenvoegen gegevens heb opgenomen. Daarin wordt een getal genoemd dat vooraf wordt gegaan door het euroteken €. Als de e-mail is verstuurd dan wordt dat teken opgenomen als een vraagteken. Kan ik dat oplossen of moet ik maar dat teken vervangen door de tekst EURO?


groet Egbert




With iMsg
Set .Configuration = iConf
.To = aan_email
' .CC = ""
.BCC = BCC_email
.From = afzender_email
.Subject = onderwerp
.TextBody = strbody
.AddAttachment "C:\Users\eleij\Documents\14. SCOUTING\BIJLAGE_contributie_Scouting.pdf"
.Send
End With

 

[edmoor]

Sla de PDF op in dezelfde map als waar dat document staat en gebruik dan dit:

.AddAttachment ActiveWorkbook.Path & "\BIJLAGE_contributie_Scouting.pdf"

Dat vraagteken staat dan in de PDF?

 

[Egbert12345]

Ah, bedankt Edmoor.

Voor wat betreft het vraagteken: in de e-mail stuur ik een stukje tekst (bedrag met apart het euroteken) en voeg de bijlage toe. In dat stukje tekst komt dus een vraagteken i.p.v. het euroteken.

 

[edmoor]

In je eigen email of bij de ontvanger?

 

[Egbert12345]

In zowel de CC aan mijzelf als de ontvanger (ik test het met een ander e-mailaccount van mij). Ik denk dat ik het euroteken maar vervang door EURO. Dan is het probleem opgelost.