Frage

[xterra]

Hallo
ich bin neuling in sachen VB. Ich möchte gerne das Outlook mir ein Fax alle 30min. automatisch versendet. Ist dies mit VB möglich oder wisst Ihr eine andere möglichkeit (die kein geld kostet).

danke für anregungen
gruss xterra

 

[ANI]

Hallo xterra,

Hier ein Beispiel für das Versenden von Mails per Outlook:

Public Sub SendMail(mailTo As String, mailCc As String, mailSubject As String, mailBody As String)
Dim mailProg As New Outlook.Application
Dim mailMsg As New Outlook.MailItem

Set mailMsg = mailProg.CreateItem(olMailItem)

With mailMsg
.To = mailTo
.CC = mailCc
.Subject = mailSubject
.Body = mailBody
.Display
End With
End Sub

Aufruf:

Private Sub Command1_Click()
SendMail "DeineFaxnummer", "", "Fax Test!", "Bodytext!"
End Sub

Versuch diese Variante mal.

ANI