|
| Mail til Exchange Fra : Jan Damkjær Dahl |
Dato : 29-03-01 18:08 |
|
hejsa
hvordan kan man sende en mail direkte til en Exchange konto.
Jeg vil gerne sende mail adressen, emne og selve mailen med så brugeren ikke
skal bekymre sig om meddelesen.
Det kan jeg nemlig besteme fra mit program. eller rettere det er en bruger
der skal have en besked, når en anden bruger har udført noget med mit
program.
hvordan klares det.
mvh.
Jan Damkjær Dahl
| |
Bjørnar Nilsen (29-03-2001)
| Kommentar Fra : Bjørnar Nilsen |
Dato : 29-03-01 18:45 |
|
Forsøk dette:
Dette er en kodesekvens som jeg har lastet ned fra en eller annen web-site
for en tid siden. Vær oppmerksom på å sette referanse til Outlook i menyen
Project/References.
Lykke til !
mvh
Bjørnar Nilsen
Public Function SendMail(sEmailRecipient As String, sEmailSubject As String,
sEmailBody As String)
'-----Send an Email Message using Outlook -----
'Developers Note: In References, the Microsoft Outlook Object Model must be
selected for this to work
Dim emailOutlookApp As Outlook.Application
Dim emailNameSpace As Outlook.NameSpace
Dim emailFolder As Outlook.MAPIFolder
Dim emailItem As Outlook.MailItem
Dim EmailRecipient As Recipient
'-----Open Outlook in a background process and the Inbox Folder-----
Set emailOutlookApp = CreateObject("Outlook.Application")
Set emailNameSpace = emailOutlookApp.GetNamespace("MAPI")
Set emailFolder = emailNameSpace.GetDefaultFolder(olFolderInbox)
'Enable the next line to actually see Outlook Open
'emailFolder.Display
'-----Create a new mail message, set the recipient, subject, and body-----
Set emailItem = emailOutlookApp.CreateItem(olMailItem)
Set EmailRecipient = emailItem.Recipients.Add(sEmailRecipient)
emailItem.Subject = sEmailSubject
emailItem.Body = sEmailBody
'emailItem.Display 1
'MsgBox "Hallo"
'-----Send the Email-----
emailItem.Save
emailItem.Send
'-----Close the Outlook Application------
'emailOutlookApp.Quit
'----Inform User of Success-----
'MsgBox "Email was sent.", vbInformation
'-----Clear out the memory space held by variables-----
'Usually unnecessary but a good practice
Set emailNameSpace = Nothing
Set emailFolder = Nothing
Set emailItem = Nothing
Set emailOutlookApp = Nothing
End Function
"Jan Damkjær Dahl" <jpd@post12.tele.dk> skrev i melding
news:99vq2h$5pr$1@news.inet.tele.dk...
>
> hejsa
>
> hvordan kan man sende en mail direkte til en Exchange konto.
> Jeg vil gerne sende mail adressen, emne og selve mailen med så brugeren
ikke
> skal bekymre sig om meddelesen.
> Det kan jeg nemlig besteme fra mit program. eller rettere det er en bruger
> der skal have en besked, når en anden bruger har udført noget med mit
> program.
>
> hvordan klares det.
>
>
>
> mvh.
> Jan Damkjær Dahl
>
>
| |
|
|