chiellebeest
Gebruiker
- Lid geworden
- 5 jan 2010
- Berichten
- 86
Hallo,
ik heb al gezocht en gegoogled, maar kan het antwoord niet vinden, dus misschien zoek ik niet goed.
Ik heb een excelsheet waarvan ik een bepaalde range in de emailbody wil mailen, dit werkt perfect, echter ben ik al ruim een week aan het "pielen" om nog 2 dingen voor elkaar te krijgen.
1. Ik heb in outlook 2 accounts, ik wil de mail vanuit 1 van deze adressen versturen. nu kan dat met .SentOnBehalfOfName, maar dat wil ik eigenlijk niet, de mail wordt dan in de verkeerde outbox geplaatst en dus (in mijn ogen) vanuit de verkeerde mailbox verstuurd.
2. Uiteraard wil ik een handtekening meesturen in de mail, ook dit heb ik ingesteld, echter krijg ik het niet voor elkaar (ook niet via de site van Ron de Bruin), om het logo in de handtekening mee te sturen. Er staat dan "deze afbeelding kan niet worden weergegeven". De link naar de handtekening is goed, als ik het *.htm bestand open, staat het logo er. Hieronder het stukje code voor de mail.
Hopelijk kan iemand mij een stukje, of helemaal helpen. Uiteraard alvast dank voor het meedenken en de hulp.
Michiel
ik heb al gezocht en gegoogled, maar kan het antwoord niet vinden, dus misschien zoek ik niet goed.
Ik heb een excelsheet waarvan ik een bepaalde range in de emailbody wil mailen, dit werkt perfect, echter ben ik al ruim een week aan het "pielen" om nog 2 dingen voor elkaar te krijgen.
1. Ik heb in outlook 2 accounts, ik wil de mail vanuit 1 van deze adressen versturen. nu kan dat met .SentOnBehalfOfName, maar dat wil ik eigenlijk niet, de mail wordt dan in de verkeerde outbox geplaatst en dus (in mijn ogen) vanuit de verkeerde mailbox verstuurd.
2. Uiteraard wil ik een handtekening meesturen in de mail, ook dit heb ik ingesteld, echter krijg ik het niet voor elkaar (ook niet via de site van Ron de Bruin), om het logo in de handtekening mee te sturen. Er staat dan "deze afbeelding kan niet worden weergegeven". De link naar de handtekening is goed, als ik het *.htm bestand open, staat het logo er. Hieronder het stukje code voor de mail.
Code:
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.SentOnBehalfOfName = "email@adres.nl"
.bcc = strto
.Subject = "List " & Range("a3") & " en " & Range("a3") + 1
.body = ""
Open "c:\users\" & Environ("username") & "\appdata\roaming\Microsoft\Handtekeningen\mysig.htm" For Input As #1
.htmlbody = StrBody & RangetoHTML(rng) & "<br><br>" & Input(LOF(1), #1)
Close #1
.display
End With
On Error GoTo 0
Set OutMail = Nothing
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
Hopelijk kan iemand mij een stukje, of helemaal helpen. Uiteraard alvast dank voor het meedenken en de hulp.
Michiel