Email aus einer Spalte mit Email-Adressen schicken

Forumthread: Email aus einer Spalte mit Email-Adressen schicken

12.01.2007 11:08:21

Mario

Hallo zusammen
Ich habe folgende Aufgabe, die ich mit einem Makro lösen möchte:
In einer Spalte sind ca. 10 Email-Adresse gelistet. Mit dem Autofilter habe ich nun 5 Adresse selektiert. Aus diesen Adressen möchte ich ein eMail über Lotus Notes verschicken, bei dem die Adressen die Empfänger sind. Wie kann ich diesen Befehl über VBA ausführen?
Vielen Dank für eure Hilfe und viele Grüsse
Mario

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Email aus einer Spalte mit Email-Adressen schicken

12.01.2007 11:52:00

haw

AW: Email aus einer Spalte mit Email-Adressen schicken

12.01.2007 11:52:00

haw

Hallo Mario,
hier ein Tipp aus dem Net:
http://www.activevb.de/tipps/vb6tipps/tipp0544.html
'Dieser Source stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.
'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!
'------------- Anfang Projektdatei Projekt1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm ---------
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Textfeld "Text4"
' Steuerelement: Textfeld "Text3"
' Steuerelement: Textfeld "Text2"
' Steuerelement: Textfeld "Text1"
' Steuerelement: Kontrollkästchen-Steuerelement "Check1"
' Steuerelement: Beschriftungsfeld "Label5"
' Steuerelement: Beschriftungsfeld "Label4"
' Steuerelement: Beschriftungsfeld "Label3"
' Steuerelement: Beschriftungsfeld "Label2"
' Steuerelement: Beschriftungsfeld "Label1"
Option Explicit
'Public Sub SendNotesMail(Subject as string, attachment as string,
'recipient as string, bodytext as string,saveit as Boolean)
'Diese Public Sub sendet eine Mail (wenn nötig) mit Anhang an
'"recipient"
'Achtung! Der Notes Client muss auf dem System installiert sein!
Public Sub SendNotesMail(Subject As String, Attachment As String, _
Recipient As String, BodyText As String, SaveIt As Boolean)
'Variablen Dimensionieren, die benötigt werden, um das Mail zu senden
Dim Maildb As Object 'Die Datenbank
Dim UserName As String 'Der Benutzername
Dim MailDbName As String 'Der Datenbankname
Dim MailDoc As Object 'Das Maildokument selbst
Dim AttachME As Object 'Der Anhang (Richtext)
Dim Session As Object 'Die Notes Session
Dim EmbedObj As Object 'Ein eingebettetes Objekt (Anhang)
'Die Session starten
Set Session = CreateObject("Notes.NotesSession")
'Den Benutzernamen auslesen und den Dateinamen
'der MailDB errechnen
'Dies wird nicht überall benötigt. Auf manchen
'Systemen kann auch ein leerer String übergeben werden
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) _
- InStr(1, UserName, " "))) & ".nsf"
'Datenbank öffnen
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.isOpen = True Then
'Fertig zum mailen!
Else
Maildb.OPENMAIL
End If
'Ein neues Maildokument erstellen
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
MailDoc.sendto = Recipient
MailDoc.Subject = Subject
MailDoc.body = BodyText
MailDoc.SAVEMESSAGEONSEND = SaveIt
'Eingebettete Objekte und Anhänge hinzufügen
If Attachment "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, _
"Attachment")
MailDoc.CREATERICHTEXTITEM ("Attachment")
End If
'Senden
MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient
'Aufräumen
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Sub


Private Sub Command1_Click()
SendNotesMail Text1, Text2, Text3, Text4, Check1
End Sub

'---------- Ende Formular "Form1" alias Form1.frm ----------
'-------------- Ende Projektdatei Projekt1.vbp --------------
Die ausgblendeten Zeilen fängst z.B. mit Hidden = True/False ab.
Gruß Heinz

Beliebteste Forumthreads (12 Monate)

Email aus einer Spalte mit Email-Adressen schicken

Forumthread: Email aus einer Spalte mit Email-Adressen schicken

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread