Lotus Notes email

On this line:
MailDoc.CopyTo = "you@somewhere.com, urmama@somewhere.com"
Try
MailDoc.CopyTo = "you@somewhere.com", "urmama@somewhere.com"

Does this make a difference

Kevin

Kathleen -

Add or Change a sheet name on your workbook to E-Mail Addresses.

A2-A25 Put you primary email addresses
B2-B25 Put your CC email addresses.

Try something like this:

Sub Button66_Click()
' Declare Variables for file and macro setup
Dim UserName As String
Dim MailDbName As String
Dim Maildb As Object
Dim MailDoc As Object
Dim AttachME As Object
Dim Session As Object
Dim EmbedObj1 As Object
' Open and locate current LOTUS NOTES User
Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
Set Maildb = Session.GetDataBase("", MailDbName)
If Maildb.IsOpen = True Then
Else
Maildb.OPENMAIL
End If
' Create New Mail and Address Title Handlers
Set MailDoc = Maildb.CreateDocument
MailDoc.Form = "Memo"
' Select range of e-mail addresses
Recipient = Sheets("E-Mail Addresses").Range("A2:A25").Value
MailDoc.SendTo = Recipient
ans = MsgBox("Would you like to Copy (cc) anyone on this message?" _
, vbQuestion & vbYesNo, "Send Copy")
If ans = vbYes Then
ccRecipient = Sheets("E-Mail Addresses").Range("B2:B25").Value
MailDoc.CopyTo = ccRecipient
End If
MailDoc.Subject = "WhatEver"
MailDoc.Body = _
"Enjoy"
' Select Workbook to Attach to E-Mail
MailDoc.SaveMessageOnSend = True
'attachment1 = "Your File" ' Required File Name
If attachment1 <> "" Then
On Error Resume Next
' Set AttachME = MailDoc.
' Set EmbedObj1 = AttachME.embedobject(1454, "attachment1",
On Error Resume Next
End If
MailDoc.PostedDate = Now()
On Error GoTo errorhandler1
MailDoc.Send 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj1 = Nothing
errorhandler1:
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj1 = Nothing
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub



Kurt

Thanks for both suggestions. Kevin I tried yours before I posted, no results, Stapuf thanks but I do not want to have the user presented with a dialog box, message box etc.

These address's are fairly static and do not change.

Anyway you can think of by adding into code.

Stapuf,

Used your recipient range and it works like a charm. Thanks for your help.




ray:

Kathleen -

Slice and dice the code as you need. I do not use the message box either. Glad the range idea worked for you.


Kurt

Hello, I'm late, but like using a range, try passing an array, e.g.,

MailDoc.CopyTo = array("you@somewhere.com","urmama@somewhere.com")