Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
saypie zei:Beste allen,
iemand enig idee of het mogelijk is om met docmd.sendobject mogelijk is een andere afzender op te geven als jezelf?
Waarom wil je dat ?
elagas zei:Ik zet er morgen wel even een voorbeeldje op, ik ga nu lekker slapen![]()
elagas zei:Dim o As Outlook.Application
Dim mail As mailitem
Set o = CreateObject("Outlook.Application")
Set mail = o.CreateItem(olMailItem)
mail.To = "emailadres"
mail.Cc = "kan nog een emailadres"
mail.Subject = "Hier kan je subject invullen"
mail.Body = "Hier kan je de gehele tekst intyppen wat in je body moet staan"
mail.Importance = olImportanceHigh
mail.Display als je eerst de mail wil laten zien, anders doe je mail.Send
Set o = Nothing
Set mail = Nothing
saypie zei:Bedankt voor jullie reacties!
Ik mis alleen in bovenstaande de afzender. Ik probeer wel even of het gaat met mail.sender of mail.from ofzo...
Ik heb ook wat info opgezocht over automation. Ik ga beide opties proberen.
Ik laat vanmiddag wel even weten of het gaat.
Thanks again!
Bartuls zei:Wat jij wilt is wel mogelijk als je gaat mailen via SMTP.
Een voorbeeld hoe je dat kunt doen kun je hier vinden: http://www.paulsadowski.com/WSH/cdo.htm
'------------------------------------------------------------------------------------------
' SendEmail
'
' Procedure om e-mail te kunnen versturen via SMTP.OCX
'------------------------------------------------------------------------------------------
Public Sub SendEmail(strEmailAdres As String, strSubject As String, strBody As String, strAttachement As String)
Dim objMail As Object
'Mail opmaken en versturen
Set objMail = CreateObject("SMTPControl.SMTP")
With objMail
.Server = "mail.mailserver.nl.nl"
.MailFrom = "Waarvandaan@bedrijfsnaam.nl"
.UserName = "gebruikersnaam_om_mail_te_versturen"
.Password = "Het_Password"
.SendTo = strEmailAdres
.CC = ""
.BCC = ""
.MessageSubject = strSubject
.MessageText = strBody
.MessageHTML = ""
.Attachments.Add (strAttachement)
.SendEmail
End With
End Sub
Verdere ideeën welkom!
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.