eMail senden

09/10/2007 - 14:55 von Jan Lorenz | Report spam
Hi,

ich suche eine Möglichkeit, ein Mail im Hintergrund (also ohne
Benutzeraufforderung) zu senden.
Versucht habe ich es mit:

MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipDisplayName = "..."
MAPIMessages1.MsgSubject = "..."
MAPIMessages1.MsgNoteText = ".."
MAPIMessages1.ResolveName
MAPIMessages1.Send

Allerdings erscheint damit die Outlook-Abfrage, ob man den Zugriff für z.B.
1min gestatten lassen möchte.

Habt ihr andere Ideen?


Viele Grüße
Jan
 

Lesen sie die antworten

#1 Stefan Dase
09/10/2007 - 15:06 | Warnen spam
Hallo Jan!

ich suche eine Möglichkeit, ein Mail im Hintergrund (also ohne
Benutzeraufforderung) zu senden.
Versucht habe ich es mit:
(...)
Allerdings erscheint damit die Outlook-Abfrage, ob man den Zugriff für z.B.
1min gestatten lassen möchte.

Habt ihr andere Ideen?



Du könntest z.B. die CDO verwenden:

Dim objMail
Set objMail = CreateObject("CDO.Message")

With objMail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/co...sing") =
2 '2=SMTP
.Item("http://schemas.microsoft.com/cdo/co...rver")
= "dein.mail.server"

.Item("http://schemas.microsoft.com/cdo/co...port") = 25
.Update
End With

With objMail
.From = ""
.Subject = "MySubject"
.To = ""
.CC = ""
.BCC = ""
Select Case BodyType
Case "Text"
.TextBody = "MyBody"
Case "HTML"
.HTMLBody = "MyBody"
End Select
.Send
End With

Set objMail = Nothing

HTH,
Stefan

Ähnliche fragen