Dato che è un contatore quindi devo usare [B3] = [B3] +1.
Ascolta Anthony, dato che sei molto più esperto di me, volevo fati una domanda. Io ho come client di posta elettronica Lotus Notes protetto da password, cioè quando lancio Lotus mi chiede la password (email aziendale).
Ho usato questa macro per inviare email :
- Codice: Seleziona tutto
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
[color=#FF0000]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[/color]
' Create New Mail and Address Title Handlers
Set MailDoc = Maildb.CreateDocument
MailDoc.Form = "Memo"
MailDoc.SendTo = "test@gmail.com"
MailDoc.Subject = "BEN New Project"
MailDoc.Body = _
"Attached is a new BEN Project Request. Please let me know when it has been setup."
' Select Workbook to Attach to E-Mail
MailDoc.SaveMessageOnSend = False
attachment1 = "C:\Temp\New BEN Project.xls" ' Required File Name
If attachment1 <> "" Then
On Error Resume Next
Set AttachME = MailDoc.CREATERICHTEXTITEM("attachment1")
Set EmbedObj1 = AttachME.embedobject(1454, "attachment1", "C:\Temp\New BEN Project.xls", "") 'Required File Name
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
Avviando la macro, se ho il Lotus in esecuzione, quindi con password inserita, l'email me la invia correttamente, mentre se il Lotus non è in esecuzione, mi fà partire il Lotus ma la macro si interrompe con il seguente errore "run-time error 8965 - The ID file is in use elsewere and cannot be modified" facendo il debug mi seleziona Maildb.OPENMAIL.
Ti chiedo
Nel codice che è in rosso dovrei inserire qualcosa inerente al Lotus , una volta inserito il tutto la routine funziona aprendo il lotus caricando l'apposito DB dell'utente, inserisce la password e invia l'email ?
Non so se mi puoi aiutare dato che il client Lotus non è molto usato , ma pultroppo nelle aziende preferiscono questo client ... che è di coccio.
Registrazione
inizia da [color=#FF0000 e finisce da /color]