/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
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
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste